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LISTE 
DES POINTS 


MAD'S - NICE - (93) 88.04.79 


- ÉVOLUTION 2000 - MANDELIEU - (93) 49.81.61 
MICRO-BOUTIQUE JCR - GIVET - (24) 55.01.93 
- MICROPOLIS - TROYES - (25) 72.03.79 


| ÉLEC VIDEO CLUB - CARCASSONNE - (68) 47.08.94 
R 2 | INFORMATIQUE - NARBONNE - (68) 65.15.83 
- BASE 2 SOCODETI - RODEZ - (65} 42.50.05 
ALLIANCE + MARSEILLE - (91} 86.35.99 


Le deuxième d’une 
- ELP INFO -+ MARSEILLE - (91) 94.91.13 ; ï ES k 
PRÉC RE ET RES longue série de guide 





- AVENIR INFORMATIQUE - BOURGES (48) 65.16.57 
MICROMATIC - BRIVE - (55) 87.1 
: 
veautes. 
16) 56.06.06,12 + 
25206 - ITA MONTBELIARD + MONTBELLIARD CEDEX - (81) 94.50.65 AU SOMMAI RE : 
26000 + DOMICA - VALENCE - (75) 41.14,75 


INFORMATIC 19 - BRIVE - (55 
26500 - ECA ÉLECTRONIQUE - BOURG-LES-VALENCE - (75) 42.68.88 a Une sélection de 416 


- OMB-VASSARD TILLIETTE - CAEN - (31) 93.48.09 el logiciels 
n 
21000 - O.M.G. MICRO LEADER - DIJON 
29000 - L'ORDINATEUR 29 - QUIMPER (98) 95.92.70 


SA. LHOMME + ANGOULÈME - (45) 99.97.37 
: : 
Plus d'un tiers de nou- 
24100 + MICRO CYRANO INFORMATIQUE - BERGERAC 
30000 - DISCOUNT INFORM. SERVICE - NIMES (66) 23.74.91 


31000 - MICRO DIFFUSION - TOULOUSE : (61) 22.81.17 programmes en Ni IETE 
33000 - MICRO DIFFUSION - BORDEAUX - (56) 81.11.99 
33800 - ETS COCA - BORDEAUX - (61) 92.91.78 


34006 - PIB - JCR BOUTIQUE RC ÉELAIER (67) 58.84.37 ou en Français pour è 
- BUI SATION - SÈTE - (67) 7 1 
ACL Mn Un 0 00 APPLE - ATARI - COMMODORE 
- LIM - CHAMBRAY-LES-TOURS - (47) 27.99.00 
PORC CEONCRS V20 et C64 - EPSON HX 20 - 
(84) 24.45.39 2 
DE nes ORIC 1 et ORIC ATMOS - IBM PC 


DÉTROIT INFORMATIQUE - SAINT-ÉTIENNE : (77) 33.58.59 


+ SAINT-ÉTIENNE COMPOSANTS - SAINT-ÉTIENNE - SINCLAIR ZX81 et S11@118/") 


(77) 33.50.14 





OR DAC EUC ESS TRS 50 - THOMSON TO 7 - 
- TÉLÉPI - ÉANS - (38) 54.34: 
nn DL 34 a HECTOR. 
TEMPS X - ANGERS - (41) 88.95.07 





- CHOLET INFORMATIQUE - CHOLET - (41) 46.09.40 — Les fiches techniques [e 14 


54000 - SÉREC - NANCY - (8) 332.12.60 


56000 - L'ORDINATEUR 56 - VANNES - (97) 42.59 20 - 
L'ORDINATEUR 56 - LORIENT - (97) 64.59.54 (aLE Le (FT programme compre 
ARGO INFORMATIQUE + SAINT-AVOLD - (87) 99.54.84 + t ° 
- CMI - FREYMING MERLEBACH - (87) 81.14.89 nan + 
ETS BOULANGER - LILLE - (20) 54.98.75 
















- BÉCY INFORMATIQUE - LILLE - (20) 92.33.06 La description precise du elLes 
00 - CID - DOUAI - (27) 88.47.20 
59800 - M.B.0.C. - LILLE - (20) 57.91.87 gramme. 
60200 - LARDET S.A. - COMPIÈGNE - (4) 423.07.86 
63000 - IMPACT - CLERMONT-FERRAND - (73) 92.17.55 S atibilité avec tel ou tel 
64110 - ESPACE MICRO 64 - BAYONNE - (59) 59.41.55 
64600 - INFORMATIQUE BASCO LANDAISE - ANGLET - (59) 31.96.05 a comp 
66000 - SÉRIE INFORMATIQUE - PERPIGNAN - (68) 34.00.11 micro 
68000 - E.8. - COLMAR (89) 23.68.35 
69003 - BI.M.P. : LYON (7) 860.84,27 
(74) 68.44.99 Ï isi 
70000 - ÉLECTRO BOUTIQUE - VESOUL - (84) 76.49.59 + Des conseils [OAOACLE choisir et acheter 
71100 - A\ l /SAONE - ( f 
1100 - AVENIR ÉLECIRONIQUE - CHALON/SAONE - (85) 48.73.35 le programme que el cherchez. 
72000 - MICROTIQUE AESCULAPPLE - LE MANS - (43) 24.97.80 
100 - L'ORDINATEUR - AIX-LES-BAINS - (79) 88.19.07 
MDEO SHOP - PARIS - (1) 296.93.95 
- HACHETTE - PARIS - 633.84.68 ce que ME cherchez. 
- DURIEZ SA. - PARIS - 329,05.60 
- LE JEU ÉLECTRONIQUE - PARIS - 596.69,93 / 874.43.20 
LPS BUREAU - PARIS - 878.26.45 
J.CR. ÉLECTRONIQUE - PARIS - 289.19,80 EN VENTE L 5 F (es | #4 Lei): 
0 - LOGIC STORE - PARIS - 206.72.98 F F 
- COCONUT INFORMATIQUE - PARIS - 355.63.00 DISTRIBUTEUR OU 15 GE 5 
- ELLIX + PARIS - 307.65.58 
MIDEF - PARIS - 539.98.68 
1.C.S, COMPOSANTS - PARIS - 355.96.22 
Ne Sn COUPON CI-DESSOUS. 
PENTASONIC - PARIS - 594.23.16 e 
16600 - MICRO MAX - LE HAVRE - (35) 41.77.47 LA HAUTE F FN :1l LITE 
76600 - V.P.C. BUREAU - LE HAVRE : (35) 49.49.91 
76600 - L'ORDINATEUR - LE HAVRE - (35) 21.54,55 
77000 - EPSILON - MELUN - 437,51.95 
83000 - P.S.. ÉLECTRONIQUE - TOULON : (94) 93.11.20 
86011 - LISTE INFORMATIQUE - POITIERS CEDEX : (49) 41.43.86 | 





- MICROSHOP - CAMBRAI - (27) 81.98.09 + 
60108 - QUENEUTTE - CREIL - (4) 495.04.96 SYe]s| prix moyen constaté 
67150 - ETS A FRITSCH - ERSTEIN - (88) 98.03.51 
— En plus vous trouverez : 
69400 - MICRO INFORM.BEAUJOLAISE - VILLEFRANCHE-S/ SAONE 
71400 - C.H.8. ÉLECTRONIQUE + AUTUN - (85) 59.70 26 
Des index pour trouver facilement 
- D.S.A. MICRO - ANNEMASSE - (50) 38.31.40 
ÉNERGY 8 - PARIS - 293.41,33 
- GÉNÉRAL VIDEO - PARIS - 206.50,50 
P.LT.B. - PARIS - 254.38.01 
DE PORT EN RENVOYANT LE 
75016 - ANTIGONE - PARIS : 743.13.41 
80000 - LOGIC - AMIENS - (29) 95.54.84 
BON DE COMMANDE A RENVOYER A SPID - 39, RUE V.-MASSÉ - 75009 PARIS 
87000 - MICROLIM - LIMOGES - (55) 34.10.19 + 


89100 - MINI LOISIRS - SENS - (86) 64.41 91 Je désire recevoir le "GUIDE DES LOGICIELS" Printemps 1984 
89100 - LASOBIKOR YONNE - SENS (86) 64.51.96 + Je joins 20 F en chèque (15 F+ 5 F de port) en règlement. 
91210 - DEOTRONIC - DRAVEIL - 940.28.30 \ | / 

92100 + AXIOME - BOULOGNE - 604.09.21 Nom 

92100 - OLIG + BOULOGNE BILL. - (1) 605.05.59 
94100 - DIXMA - SAINT-MAUR - 885.98.99 

98000 - MICROTEK 2 - MONACO - (93) 30.67.67 + 
88002 - AV.M. - ÉPINAL (29) 89.14.97 





’S n°12 





Sommaire Page 
Disque virtuel 16K par Michel Haag 7 
Charts Unlimited à l’essai par Guy Lapautre 11 
Le Calculateur entier par Jacques Duma 15 
Exp (Pi*Sgr (163)) est-il entier ? par Olivier Herz 21 
Analyse de Magic Maïiler par Guy Lapautre 22 
Initiation à l’assembleur (2) par Gérard Michel 23 
Patch du DOS 3.3 par Yvan Koenig 28 
Des tableaux de dimension variable par Gérard Michel 29 
& ONERR GOTO par Dimitri Auer 33 
Programme assembleur à la fin d’un programme BASIC 

par Roland Jost 35 
Des trucs pour Apple Writer II et //e par Hervé Thiriez 39 
Adaptez Apple Writer 1.1 à l'Apple //e par Jacques Leroy 40 
Un éditeur de shapes par Thierry Le Tallec 41 
Nombres flottants en langage machine par Erick Ringot 45 
Un mois avec le Macintosh par Hervé Thiriez 53 
L’Apple //c est né ! par Guy Mathieu 54 
PEEKSs et POKESs en Pascal par Jacques Pino 55 
Les disquettes de Pom’s par Olivier Herz 56 
Imprimez les codes ESC de votre PLE par Pascal Fontanier 59 
Tracé rapide de cercles par Dominique Bernardi 61 
La micro-informatique au Japon par Olivier Herz 62 
Pom'’s a vu MEM/TERM par Guy Lapautre 63 
La famille Apple // par Daniel Garic 67 
Micro-informations par Jean-Michel Gourévitch 69 
Courrier des lecteurs par Alexandre Duback 71 
Courrier des clubs 73 
Bibliographie 73 


Langage : B(asic) - A(ssembleur) - P(ascal). (B) signifie : relatif au BASIC. 
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| LE FLASH !! 


ON EST FAIT 
\ = POUR L'AUTRE. 


Nos cartes coprocesseurs permettent de transformer littéralement un Apple // en lui donnant 
une vitesse 2 à 20 fois supérieure en Applesoft ou en Pascal et/ou une compatibilité 
en assembleur ou en langage évolué avec les nouveaux micros du marché. 


LA PERFORMANCE 


carte AD 8088 


16 bits, CP/M-86 
APPLESOFT ultra rapide ! 





carte 6502 C 


100% compatible 
4 fois plus rapide. 





Sans modifier une ligne des programmes APPLESOFT la Quel que soit le programme, quel que soit le langage, 
vitesse est multipliée par un coefficient de 2 à 4. La carte le microprocesseur 6502 C (3.6 MHZ) divise par 3,6 le 
permet d'utiliser CP/M-86 bientôt MS/DOS, le processeur temps d'exécution. Aucune modification ni matériel, ni 
arithmétique rapide 8087 a une vitesse époustouflante. logiciel. La carte comporte 64 Ko de mémoire ; 2 ver- 
Mémoire extensible à 192 Ko. Fonctionnement simultané sions : Apple Il +, et Apple //e. 

du 6502 et de plusieurs cartes AD 8088 possible. 


# 


carte 68000 


Vitesse, puissance. Avenir. 





Le microprocesseur le plus puissant. 3 versions 8, 12.5 et 14 MHZ. 128 Ko de mémoire sur la carte extensible à 812 Ko. 
Entièrement compatible avec APPLESOFT et DOS 3.3 qu'elle accélère dans un rapport de 3 à 20 selon les program- 
mes. UCSD-p System complet disponible en version IV.I avec PASCAL, BASIC, FORTRAN. Développements 
possibles sous UCSD pour IBM PC et XT, VICTOR SI, RAINBOW 100, GOUPIL IIL etc., sans recompilation. 

Le 68000 équipe LISA et MC INTOSH ! 


a departement 29, bd gambetta - 38000 grenoble ne 
° . tél. (76) 43.19.97 | To, 
SVSTEMES diffusion oisrnBuTEuRs DANS TOUTE LA FRANCE 
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Editorial 


D'aucuns annonçaient la mort lente d'Apple, étant donné la concurrence de l'IBM PC et des nouveaux 
16 et 32 bits à haut rapport performance/prix, tels que le QL de Sinclair. Or. tout d'abord. on constate 
que les nouveaux produits concurrents n'ont pas toujours une naissance sans problème : ainsi, le QL 
connaît-il en ce moment des difficultés avec des bugs dans son QDOS et des erreurs de conception 
dans un de ses circuits spéciaux. En outre, la sortie du Macintosh a prouvé qu'il fallait encore compter 
avec Apple : la demande est telle aux Etats-Unis qu'il est question de lancer une campagne de publicité 
sur le thème « Nous savions qu'il s'en vendrait un million : nous ne savions pas que cela se ferait en 
deux semaines... ». 


Ce douzième numéro de Pom's vous apporte la seconde partie de la rubrique « Apprentissage de 
l'assembleur » assurée par Gérard Michel. Certains m'ont fait déjà fait savoir, à la suite de la première 
leçon, que cette initiation était la meilleure qu'ils aient jamais vu. Merci pour Gérard. Sur le plan 
pédagogique, Erick Ringot épluche aussi pour vous la façon dont les nombres flottants sont gérés par 
votre ordinateur favori. 


Grâce au programme de Michel Haag, tout le monde pourra. sur Apple I Plus et /’e. transformer la 
carte d'extension 16K en lecteur de disquettes virtuel. Il est alors possible d'y loger tous ces utilitaires 
d'usage fréquent, ou de s'en servir pour v placer les tables de référence des programmes Basic. En 


compensation, les « Pascaliens » apprendront avec Jacques Pino comment faire des PEEKS et des 
POKESs en Pascal. 


Comme d'habitude, vous trouverez dans ce Pom's des tas de programmes tous plus utiles les uns que 
les autres. Roland Jost montre comment cacher des programmes en assembleur à la fin des program- 
mes Basic. Dominique Bernardi illustre sa façon de tracer rapidement des cercles en écran haute 
résolution. Dimitri Auer vous permet enfin de créer des tableaux à dimension variable en Basic. Yvan 
Koenig propose un patch du DOS 3.3 permettant d'éliminer plusieurs de ses bugs et limitations. 
Thierry Le Tallec complète ses contributions antérieures par un éditeur de shapes de toute beauté. 
Les utilisateurs d'Apple Writer sont gâtés cette fois-ci : Jacques Leroy transforme Apple Writer 1 pour 
qu'il fonctionne sur un /’e, et je fournis de nombreux trucs d'utilisation pour Apple Writter Il et /’e. Pour 
terminer, vous verrez avec Pascal Fontanier comment imprimer les codes ESCape de votre impri- 
mante. 


Pom's vous offre encore dans ce numéro une contribution importante avec le Calculateur Entier de 
Jacques Duma ; vous pourrez effectuer avec votre Apple Il des calculs avec 500 chiffres significatifs. 
Comme il fallait 15 pages rien que pour le listing source en assembleur, nous n'avons pu le mettre que 
sur la disquette d'accompagnement : par contre. les lecteurs courageux (ou obstinés) pourront repren- 
dre le programme à partir du code objet publié avec l'article... Olivier Herz utilise le Calculateur Entier 
pour s'attaquer à la question métaphysique que tous se posent : EXP (PI*SQR(163)) est-il entier ? 

Les bancs d'essai restent au goût du jour : Guy Lapautre à décortiqué Magic Mailer et Charts Unlimi- 


ted : il nous présente en outre le nouveau service MEM/TERM. L'intégrité de nos bancs d'essai est 
garantie par le fait que nous ne recevons pas de publicité en échange de nos analyses. 


La sortie du Macintosh signifie-t-elle la disparition progressive de la ligne Apple I et /’e ? L'article de 
Daniel Garric et la rubrique Micro-Informations, tenue à présent par Jean-Michel Gourévitch, vous 
prouvent le contraire : les nouveaux produis //c et (//x ?} vont compléter la gamme en respectant autant 
que possible le sacro-saint principe de la compatibilité. Olivier Herz complète ces réflexions sur le 
marché de la micro-informatique en nous parlant du Japon. 


| 


Hervé Thiriez 
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. DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 





- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4". 


- 5 4" en 48 et 96 TPI, simple et double face. 


BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 


Zn 
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Ce programme transforme les 16K 
de la carte langage en pseudo-dis- 
quette (disque virtuel): c'est-à-dire 
que la carte langage se comportera 
comme un lecteur de disquettes à 
accès très rapide (et à capacité res- 
treinte). Il est transparent au Basic et 
au File Manager du DOS. Le pro- 
gramme FID fonctionne sans diffi- 
culté avec la pseudo-disquette ainsi 
formée par les 16 K de la carte lan- 


gage. 


Exemples d’utilisation 


On a souvent besoin, lors de la mise 
au point d'un programme, de plu- 
sieurs utilitaires. Ceux-ci peuvent être 
disponibles sur la pseudo-disquette. 


Certains programmes doivent fré- 
quemment accéder à un fichier texte 
pour le modifier ou le compléter. Si 
on le transfère sur la pseudo-dis- 
quette, il ne sera plus nécessaire d’at- 
tendre que la disquette se mette à 
tourner et qu'elle veuille bien présen- 
ter le secteur voulu sous la tête de 
lecture. Les lectures et écritures pren- 
dront moins de temps, surtout si le 
fichier est à accès direct. 


Remarque aux débutants 


Si les paragraphes expliquant le fonc- 
tionnement du programme vous dé- 
passent, vous pouvez sauter directe- 
ment à la partie ‘Utilisation de cet 
article. On peut en effet parfaitement 
utiliser ce programme sans pour au- 
tarit comprendre son fonctionnement 
(ccmbien de conducteurs connaissent 
la mécanique ?). 


Fonctionnement du 
programme 


À chacune des 64 pages de MEV de 
la carte langage est associé un sec- 
teur. Les trois premières pages de la 
première tranche de 4K de la carte 
langage, comprises entre $D000 et 
$D2FF, correspondent aux trois pre- 
miers secteurs de la piste 17. Ils 
contiennent la VTOC (Volume Table 
Of Contents) en page $DO0 et un ca- 
talogue (directory) de deux secteurs. 
Les 13 autres pages de cette tranche 
correspondent aux secteurs 3 à 16 
de la piste 3. Les pistes 4, 5 et 6 
sont associées à la seconde tranche 
de 4K et à la zone $EO00-$FFFF de 
la carte langage. 


Le programme a été scindé en deux 
modules : un module d'initialisation, 
RWLCINIT (utilisé une seule fois) et 
un module d'accès aux pistes” et 
secteurs” de la carte langage. Ce 
second module, baptisé RWLC, reste 
en mémoire après l'initialisation. 


Module RWLCINIT 


Ce premier module construit la 
VTOC et un catalogue de 2 secteurs 
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VO JHUPBUON Er 


Ve Ne ve vs Ne ve ve ve ve 


Disque virtuel 16 K 


RHRHHMHMEMMNNNNNMNM RM NN ON DM M NON M DE D DE M 
# 


RWLC 


MICHEL HAAG (NOV 83) 


MW OX K x XX * 


XX * * 


HRHHMMNNNN M MN NN NM MN M M NON M OM M D 6 M M EN 


ORG S$SBEBO 
0BJ $800 


EMULATEUR DE DISQUETTE 


UTILISE LA CARTE LANGUAGE POUR 
UNE DISQUETTE DE 4 PISTES 


NON ve ve ve ve 


I1OBP EPZ 548 

PTR EPZ S2A : PAGE = 

BUFPTR EPZ S$3E 

SECT EPZ S2D 

TRACK EPZ S$2E 

TRK EQU $4 

SEC EQU $5 

BUF EQU 58 

CMD EQU $0C 

DRV EPZ $02 

RWLC STY 1IOBP 
STA IOBP+1 
LDY #DRV 
LDA (IOBP),Y 
CMP #2 
BEQ RWLC1 
JMP SBDO3 


_ 


RWLC1 LDY 
LDA 
STA 
INY 
LDA 
STA 
LDY 
LDA 
STA 
LDY 
LDA 
STA 


#BUF 
(CIOBP),Y 
BUFPTR 


(IOBP) ,Y 
BUFPTR+1 
#SEC 
CIOBP),Y 
SECT 
#TRK 
CIOBP),Y 
TRACK 


DETERMINATION DU BLOCK DE 4K 


ss se ve 


CMP 
BEQ 
CMP 
BEQ RAMI 
BMI ERR 
CHP #7 
BPL ERR 
LDA SCO83 
LDA SCO83 
LDA #00 
STA PTR 
LDA TRACK 
SEC 
SBC 
ASL 


#S11 
RAM1 
#3 


RAM2 


:PTR = 


#$04 


"SECTEUR" 


Michel Haag 


SIMULER 





; TOUT APPEL DE RWTS EST 
:AIGUILLE SUR RYLC. LE 

; CONTROLE EST REDONNE A RWTS 
:SI LE LECTEUR EST D1 


TRANSFERT DE POINTEURS EN PAGE ZERO 


: BUFFER DANS BUFPT 


: SECTEUR DANS SECT 


:PISTE DANS TRACK 


; VTOC OÙ DIR. 


= 1ERS 4K DE LA L.C.. 


:PISTE 4,5 OÙ 6 : 
:ON COMMUTE LA PREMIERE ZONE 
:DE 4K DE LA CARTE 


DO+S10+(TRACK-4)+SECT 


a SET EC DE EEE TEE 





RARE 


sur la carte langage. Il procède en- 
suite à quelques modifications du 
DOS. Sur la table d'occupation du 
VTOC, seuls les secteurs existant ef- 
fectivement sont signalés comme 
étant libres. RWLCINIT met ensuite 
un BRK ($00) en $BEAF et inhibe la 
commande DOS INIT. Il place enfin 
un JMP $RWLC à l'entrée de RWTS 
en $BDOO. 


Module RWLC 


Ce second module débute en $BEBO 
et comporte 144 octets. Il recouvre 
donc en partie la commande INIT du 
DOS. Tout appel de RWTS est ai- 
guillé vers RWLC. Si le lecteur 
concerné est le lecteur 1, RWEC re- 
donne le contrôle à RWTS. Si c'est 
le lecteur 2, RWLC détermine la 
page de la carte langage qui est invo- 
quée et procède aux échanges de- 
mandés entre cette page et le buffer 
pointé par l'IOB. Si les appels de 
RWTS sont effectués par le File Ma- 
nager du DOS, il sera automatique- 
ment tenu compte de la VTOC créée 
par RWLCINIT. Le File Manager ne 
fera référence qu'à des secteurs exis- 
tant effectivement sur la carte lan- 
gage. Si par contre on ne souhaite 
pas tester soi-même les numéros de 
secteur et piste, il faut éviter d’accé- 
der directement à la carte langage 
par RWTS, qui continuera cependant 
à donner des résultats parfaitement 
normaux sur le lecteur 1. 


Utilisation du 
programme 


Ce programme ne peut fonctionner 
que si une carte langage est installée, 
et non déjà utilisée par le programme 
(ou un langage, ou un DOS relogé). 
Il faut faire, dans l’ordre : 


BLOAD RWLC.OBJ 
BRUN RWLCINIT.OBJ 


On peut à la place exécuter un fi- 
chier EXEC qui contiendrait ces deux 
commandes. La pseudo-disquette 
s'est maintenant substituée au se- 
cond lecteur qui, par conséquent, ne 
peut plus être utilisé par le pro- 
gramme. Tout ordre du DOS suivi 
de ”,D2” invoquera dorénavant la 
pseudo-disquette. De plus, comme 
dans le cas d’un lecteur réel, le dis- 
que utilisé par défaut restera le dis- 
que virtuel jusqu'au prochain appel 
du drive 1 (par exemple avec CATA- 
LOGDI1). Les programmeurs possé- 
dant deux lecteurs pourront décon- 
necter RWLC et retrouver le second 
lecteur par POKE 48825.0. Pour re- 
connecter RWELC, il suffira de faire 
POKE 48825.2. 


Pour échanger des fichiers entre la 
disquette 1 et la pseudo-disquette, il 
sera commode d'utiliser le FID. Enfin 
un dernier avertissement : les infor- 
mations contenues sur la carte lan- 


AS NEAR RSI Le 56-48 pu qqn ner 
SSSR 


DÉRNIINNNNNNENRNENNNTENT NRRRNNNNESEERENEEENERNE 


Ÿ © No U1,B ON + 


ASL 

ASL 

ASL 

#SDO 
SECT 
PTR+1 
EXQ 
#500 
PTR 


RAM1 LDA 


SECT 
#SDO 
PTR+1 
SCO8B 
$sCOo8B 
#CMD 
CIOBP),Y 
CMP #0 
RET 
CMP #1 
READ 
CMP #2 
WRITE 


EXQ 


ERR 
RET sco82 


SCOo8À 


READ 
BR1 


#500 
CPTR),Y 
(BUFPTR) ,Y 


BR1 


RET 

#500 
CBUFPTR) ,Y 
CPTR),Y 


WRITE 
Bw1 LD 


BW1 


RET 


LENGTH = *-RWLC 


LL 


* 


RWLCINIT 


MICHEL HAAG 


CPRTETETE ST 
M OX x * * 


» 


. 


ORG $8000 
OBJ $803 


PTR EPZ $S2A 


;: ZONE DE 4K DE LA CARTE, 
:LE DOS. 


INIT: 
LDA S$SCO8B 
LDA $CO8B 
LDA #0 
STA PTR 
LDA #SDO 
STA PTR+1 


(NOV 83) 


HARXMNMN MN MR M M NE M D Ne D D D D M D D 6 NN 


INITIALISE UN VTOC ET 


: TOUJOURS BRANCHE 
:PISTE 3 OÙ S$11 : 


: CALCUL DE LA PAGE 


: COMMUTE LA 2IEME ZONE 


: "LECTURE" OÙ "ECRITURE" 


: PROVOQUE UN 1/0 ERROR 
; COMMUTE LA MEM 


:LIT UN "SECTEUR" 


3; ECRIT UN ‘"SECTEUR" 


SHRRRHREÉRERNERHRREREREEÉEXEXRREX EX 


# 
* 
# 
# 
# 
* 


UN DIRECTORY SUR LA PREMIERE 
PAGE DO, D1 ET D2. MODIFIE 


; VALIDE LA 1ERE TRANCHE DE 4K 
:DE MEV DE LA CARTE LANGAGE 
;MET LE VTOC ET LE DIR À O 
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gage sont volatiles et disparaissent 
avec l’extinction de l'appareil: il fau- 
dra donc penser (en fin de séance) à 
transférer sur une disquette réelle le 
contenu de la carte langage si l'on 
souhaite le conserver. 


Pour les adresses du DOS et la cons- 
truction de la VTOC, voir Beneath 
Apple DOS, de Worth et Lechner. 
Pour l'inhibition de la commande 


INIT, voir ‘Une incursion dans les 
mystères du DOS” (Pom's 2). 





Récapitulation RWLC.OBJ 


BEBO- 84 48 85 49 AO O2 B1 48 
BEB8- C9 02 FO 03 4C O3 BD A0 
BECO- O8 B1 48 85 3E C8 B1 48 
BEC8- 85 3F AO OS B1 48 85 2D 
BEDO- AO 04 B1 48 85 2E C9 11 
BED8- FO 25 CS 03 FO 21 30 40 
BEEO- C9 07 10 3C AD 83 CO AD 
BEE8- 83 CO AS O0 85 2A AS 2E 
BEFO- 38 ES 04 OA OA OA OA 69 
BEF8- DO 65 2D 85 2B 90 11 A9 
BFOO- OO 85 2A 18 AS 2D 69 DO 
BFO8- 85 2B AD 8B CO AD 8B CO 
BF10- AO OC B1 48 C9 00 FO 09 
BF18- CS O1 FO OC CS O2 FO 14 
BF20- 38 AD 82 CO AD 8A CO 60 
BF28- AO OO Bi 2A 91 3E 88 DO 
BF30- F9 18 9O ED AO OO B1 3E 
BF38- 91 2A 88 DO F9 18 9O E1 


Récapitulation 
RWLCINIT.OBJ 


8000- AD 8B CO AD 8B CO A9 O0 
8008- 85 2A AS DO 85 2B A9 O0 
8010- AO O0 91 24 88 DO FB E6 
8018- 2B AS 2B CS D3 DO EF AS 
8020- DO 85 2B AO 06 B9 8F 80 
8028- 91 2A 88 10 F8 AS 7A 8D 
8030- 27 DO AS O3 8D 30 DO A9 
8038- O1 8D 31 DO 8D 37 DO AS 
8040- 23 8D 34 DO A9 10 8D 35 
8048- DO A2 O4 AS FF AO O0 393 
8050- 44 DO C8 99 44 DO C8 C8 
8058- C8 CA DO F3 AS F8 8D 45 
8060- DO E6 2B AO O1 A9 11 91 
8068- 2A C8 A9 O2 91 2A 18 AD 
8070- 82 CO AD 84 CO AO O3 B93 
8078- 8B 80 99 00 BD 88 10 F7 
8080- AS OO 8D AF BE A9 SB 8D 
8088- 84 A8 60 4C BO BE EA O4 
80930- 11 01 03 OO O0 FE 
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B3 


B2 


VTOC 


LCRETE TT 


B1 


ess ve 


B4 


se ss vs 


MODIFIE 


ss. 


BS 


FATCHTBL 


VTOCTBL 
LENGTH 


LDA 
LDY 
STA 
DEY 
BNE 
INC 
LDA 
CMP 
BNE 


LDA 
STA 
LDY 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 


LDX 
LDA 
LDY 
STA 
INY 
STA 
INY 
INY 
INY 
DEX 
BNE 
LDA 
STA 


DIRECTORY 


INC 
LDY 
LDA 
STA 
INY 
LDA 
STA 
CLC 
LDA 
LDA 


#0 
#$00 
CPTR) ,Y 


B2 
PTR+1 
PTR+1 
#SD3 
B3 


#SDO 
PTR+1 

#06 
VTOCTBL,Y 
CPTR) ,Y 


B1 
#S7A 
SDO27 
#$03 
SDO30 
#S01 
SDO31 
SDO37 
#$523 
SDO34 
#$10 
S$SDO35S 


TABLE D’OCCUPATION DU VTOC 


#4 

#SFF 
#0 
SDO44,Y 


SDO44,Y 


B4 
#SFS 
SDO4S 


PTR+1 
#1 

#$11 
CPTR),Y 


#2 
CPTR) ,Y 


$sCco82 
SCO8A 


LE DOS 


LDY 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
LDA 
STA 
RTS 
JMP 
NOP 
BYT 


#03 
PATCHTBL,Y 
SBDOO, Y 


BS 
#500 
SBEAF 
#SSB 
SA884 


SBEBO 


8 PREMIERS OCTETS DU VTOC 


:OCTETS 8 A $37 


: DERNIERE PISTE ALLOUEE 


:255 OCTETS/SECT 
3823 (35) PISTES 


:$10 SECTEURS/PISTE 


:LES PISTES 3, 4 ET 5 
; SONT LES SEULES LIBRES 


> SAUF LES SECTEURS 0,1 ET 2 
> DE LA PISTE $111 


; PROCHAIN SECTEUR DU DIR. 
PISTE $11, SECTEUR 2 


: COMMUTE LA MEM 


3; AIGUILLE TOUT APPEL 
3DE RWTS SUR RWLC 


; EMPECHE UNE INITIALISATION 


;: PROVOQUE UN SNTX ERR POUR 
; TOUTE UTILISATION DE INIT 


>; MODIFICATION DU DOS 


$4,$11,$1,$3,0,0,SFE 


*-INIT 


SPECIAL 
SICOB 


UNSICOB 


TRES SPECIAL. 





ll 


à LR 









I 





LL 
| 


PROGICIELS, 
MINI, MICRO-ORDINATEURS 


; (JOURNÉES GRAND PUBLIC : 18 ET 19 MAI) 
Spécol 
: Information : SICOB (1) 261.52.42 -— 4, place de Valois - 75001 Paris 
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Charts Unlimited est un éditeur gra- 
phique (ou plus précisément un aide 
à la réalisation de dessins) vendu 
$195 par Graphware (5084 Mosiman 
Road - Middletown - OH 45042). Il 
se présente sous la forme désormais 
classique d’un classeur rigide, avec 
documentation et une disquette. Ce 
programme n'est pas encore, à notre 
connaissance, vendu en France. 


Il est destiné à créer et à imprimer 
des schémas et dessins tels que : or- 
ganigrammes,  ordinogrammes de 
traitement, synoptique de processus 
industriels, etc. Il ne peut pas servir 
directement à représenter des séries 
numériques comme le font des logi- 
ciels tels que Visiplot, Décisionnel 
Graphique (essai dans le Pom'’s 10), 
Business Graphics ou PFS-Graph. 


Les avantages et inconvénients de 

Charts Unlimited sont évalués en 

fonction de ce qu’un utilisateur est 

en droit d'attendre d'un tel logiciel, 

avec parfois référence implicite ou 

explicite à d’autres logiciels de même 

objectif. Ils sont présentés sous 7 

têtes de chapitres : 

1 - Apprentissage du logiciel 

2 - La ‘’page” écran 

3 - Fonctions de dessin disponibles 

- Objets et symboles 

- L'édition sur imprimante 

- Utilitaires : gestion des disques, 
liaisons externes 

7 - Documentation 


Apprentissage du 
logiciel | 


L'abord du logiciel est assez aisé : il 
se fait grâce à un ‘Tutorial” qui 
consiste à tracer un organigramme 
d'entreprise, et permet de couvrir la 
plupart des fonctions du logiciel. 


Une fonction "AU SECOURS”, invo- 
quée par la touche ”’?”, propose un 
simple synoptique des commandes 
disponibles. 


nous 


On pourra s'étonner du choix fait 
pour les lettres plus ou moins mné- 
motechniques permettant l'appel des 
commandes (même en Anglais): E 
(pour "ERASE”) ou D (pour "’DASH 
LINE”), d'accord, mais B pour dési- 
gner des “OBJETS STANDARDS” 
ou Ÿ pour définir des objets. 


Il faut s’habituer au mode de dépla- 
cement du curseur : 8 lettres pour les 
8 directions dans toutes les comman- 
des, sauf en mode texte où l’on re- 
trouve les 4 flèches de direction 
(pour l'Apple //e). 


Il est assez commode de configurer 
son système imprimante/interface … 
à condition que ces deux matériels fi- 
gurent dans les listes proposées. 
Sinon, quelques tâtonnements sup- 
plémentaires semblent conduire en 
général à un résultat satisfaisant. 
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Charts Unlimited à l’essai 


Avantages: Simplicité d'emploi - 
Nombreuses fonctionnalités d’un 
abord aisé - Ecran clair. 


Inconvénients : Codes de comman- 
de pas toujours évidents - Quelques 
problèmes dans le maniement du 
curseur. 


Synthèse : Dans l’ensemble, pas de 
gros reproches, malgré quelques in- 
commodités mineures. Un “Tutorial” 
bien fait. On commence à "se dé- 
brouiller”’ avec Charts Unlimited en 2 
heures environ. 


La ”page” écran 


L’écran est une fenêtre de 37 colon- 
nes sur 19 lignes dans une page de 
123 colonnes sur 90 lignes. Des 
échelles placées en haut et à gauche 
de l'écran montrent à quel endroit 
on se trouve dans la page. 


En bas, une ligne de commande per- 
met de savoir quelle est la fonction- 
nalité en cours. Chaque commande 
est appelée par une lettre code. On 
en ressort TOUJOURS par la touche 
ESC 


Nous avons déja parlé du positionne- 
ment du curseur. Sauf en mode 
texte, il se fait par le groupe assez 
traditionnel de lettres "'UIOJKN 
M <” pour obtenir les 8 directions 
de déplacement; il vaut donc mieux 
être en mode US sur un clavier //e. 
Les 4 flèches de direction (version 
{le) servent à un déplacement rapide, 
jusqu'aux bords de l’écran. 


En mode texte, les déplacements se 
font avec les 4 flèches; RETURN ren- 
voie à la ligne suivante, DEL efface 
le caractère sous le curseur (et non le 
précédent...) et CTRL-I crée un es- 
pace (pour insertion). 


On à souvent besoin de désigner une 
zone rectangulaire de l'écran : sauve- 
garde, duplication. Ceci se fait 
commodément en se plaçant succes- 
sivement dans les angles supérieur 
gauche et inférieur droit, et en ‘’mar- 
quant” ces angles par RETURN. 


Par ailleurs, une fonction “VIEW” 
permet d'obtenir, dans un petit rec- 
tangle en bas et à droite, un fac-si- 
mile réduit de la page entière. 


Avantages : Ecran clair - Vision très 
commode de la page entière - Mode 
unique d'entrée et sortie de chaque 
commande - Puissance de la notion 
de zone”. 


Guy Lapautre 


Inconvénients : Quelques petits 
problèmes de déplacement du cur- 
seur - La désignation de zones est 
parfois une commodité dange- 
reuse : on peut, en l’omettant, perdre 
complètement le résultat d'une 
séance de travail. 


Synthèse : Là encore, les avantages 
l'emportent sur les inconvénients. On 
regrettera toutefois qu'il n'y ait pas 
un verrouillage de la fonction de sau- 
vegarde quand on a omis de dési- 
gner préalablement la zone à sauve- 
garder. 


Les fonctions de dessin 
disponibles 


Elles sont désignées ci-dessous par 
leur équivalent en français. 


TEXTE : permet l'écriture de tous 
les caractères imprimables. L'écriture 
ne peut pas traverser un dessin déjà 
fait. Elle est limitée à l’intérieur d'une 
case, ou à une zone vide... 


LIGNES : droites pointillées (Dash) 
ou pleines (Solid) tracées grâce aux 
8 touches de direction. Quelques 
petits problèmes de jonction selon les 
sens successifs de tracé. 


OBJETS : on désigne par ce voca- 
ble des éléments de dessin pré-éta- 
blis. Il existe un jeu dit standard” de 
36 éléments, qu'on peut manipuler, 
agrandir, déformer, (un mini 
"Lisa-Draw”, par anticipation). L'uti- 
lisateur peut créer autant de jeux 
qu'il le souhaite (on trouve une cer- 
taine analogie avec le logiciel de trai- 
tement de texte Gutenberg - voir 
Pom's 11) Mais les fonctions 
d'agrandissement ne sont pas dispo- 
nibles. 


SYMBOLES : analogues aux objets, 
au nombre de 26, non transforma- 
bles. L'utilisateur ne peut pas créer 
ses propres jeux. 


DUPLICATION : reproduction, 1 ou 
n fois, d’une ‘’zone”, à intervalles 
équidistants sur une ligne (encore 
une idée reprise et développée dans 
Lisa-Draw). 

EFFACEMENT 
d'une zone. 


d'un point, ou 


Avantages : Nombreuses fonction- 
nalités que l’on ne retrouve qu'avec 
des outils plus puissants mais sensi- 
blement plus coûteux. 


Inconvénients : Ils ne seraient sans 
doute pas cités si on n'avait pas vu 
plus fort depuis. mais pas sur le 
même matériel ni au même prix. 








On pourra, à la rigueur, regretter 3 
choses : l'impossibilité d'agrandir les 
objets utilisateur, le manque d'accès 
aux points élémentaires sur l'écran 
(voir Micro Painter, E-Z Draw ou 
Koala Pad), et enfin l'absence d'un 
outil de calcul associé. 


Synthèse : Certains produits récents, 
sur des ordinateurs plus puissants, ou 
sur Apple Il avec des compléments 
matériels et logiciels peu économi- 
ques, nous ont habitués à d’excellen- 
tes performances dans le dessin. 
Charts Unlimited n'’atteint évidem- 
ment pas ces performances. Mais, 
par sa simplicité comme par son prix, 
c'est un outil remarquable aux nom- 
breuses fonctionnalités. 


Objets et symboles 


La palette offerte comprend une 
planche de 36 objets dits ”’standard”, 
dont beaucoup sont inspirés des des- 
sins d’ordinogrammes, et une plan- 
che de 26 symboles variés. La fonc- 
tion de création permet à l’utilisateur 
de créer autant de planches de 26 
objets qu'il le souhaite, en partant 
d'objets ou symboles existants, de 
tracés nouveaux et de textes. 


Les objets standards peuvent de plus 
être agrandis dans une ou deux di- 
rections (suivant les objets), et par 
conséquent déformés. Un cercle peut 
devenir un ovale, un petit carré un 
grand rectangle, etc. Symboles et 
objets utilisateur ne peuvent pas être 
modifiés dans leurs forme et dimen- 
sions. 


Avantages : Tracés rapides, et très 
simples dès lors qu’on a constitué sa 
(ses) propre(s) planche(s) d'objets - 
Appel rapide, mais seules les plan- 
ches d’objets standards et de symbo- 
les peuvent être visualisées à l'écran. 


Inconvénients: Il est regrettable 
que les objets créés par l'utilisateur 
ne disposent pas des mêmes fonc- 
tionnalités que les objets standards - 
Impossibilité de travailler au niveau 
du point élémentaire. 


Synthèse: L'idée des ‘planches 
d'objets”, qui a été reprise par des 
produits modernes plus dispendieux, 
est une des grandes forces de Charts 
Unlimited. Quel dommage que l’utili- 
sateur ne puisse pas, à son gré, utili- 
ser ses propres objets en place des 
objets standards. 


L'édition sur imprimante 


Un large choix d'imprimantes et d'in- 
terfaces est proposé à l'utilisateur, à 
parti d'un menu de configuration 
très simple à utiliser. Le problème ris- 
que de se compliquer un peu si l’im- 
primante et/ou l'interface qu’on pos- 
sède ne figurent pas dans la liste. 
Mais un peu d'habitude permet en 
général de faire des assimilations. 


O +—$ 


7 
T 


Il est possible d'imprimer les graphi- 
ques, et ce en simple ou double di- 
mension, verticalement ou horizonta- 
lement sur le papier. La simple 
dimension, dite ’’normale” est en fait 
très condensée (elle permet, sur pa- 
pier 21x31, l'impression d’un graphe 
de 123 colonnes dans le sens de la 
largeur du papier. Mais les dessins 
sont en réalité raccourcis, ce qui in- 
troduit une déformation des objets et 
symboles. 


L’impression en double dimension 
ne double en fait que la largeur, res- 
tituant aux objets leur forme nor- 
male. Mais il est nécessaire, pour un 
schéma dépassant une soixantaine 
de colonnes, de travailler ”verticale- 
ment”. À ce moment, un schéma de 
123 colonnes tient juste dans une 
feuille de papier 21x31, mais seules 
les 2/3 des lignes supérieures sont 
imprimées. 





Avantages : Un bon choix d'impri- 
mantes et d'interfaces - Deux possibi- 
lités de dimensions d'impression et 
deux sens pour chacune d'elles. 


Inconvénients : Une lenteur d’im- 
pression presque désespérante (les 
temps se comptent en longues minu- 
tes !). 


Synthèse : Bonnes possibiltés, pour 
qui est patient. 


Utilitaires : 
disques, 
nes 


gestion des 
liaisons exter- 


Le temps de chargement du pro- 
gramme est assez long, mais on est 
ensuite tranquille. La configuration 
imprimante, étant sauvegardée sur le 
disque programme, est chargée avec 
celui-ci si on ne souhaite pas la mo- 
difier. 


Les fonctions classiques d'échange 
avec le disque sont présentes. Bien 
que le travail avec deux lecteurs soit 
plus confortable, les transferts sont 
suffisamment peu nombreux pour 
qu'on puisse se contenter d'un seul 
lecteur. 


À signaler un grave inconvénient de 
la fonction de sauvegarde : si on n’a 
pas pris la précaution de désigner la 
zone à sauvegarder, l'option par dé- 
faut n’est pas TOUT” mais ”RIEN” 
(pas d'avertissement: on a simple- 
ment l'impression d’un dysfonction- 
nement qui disparaît après deux RE- 
TURN) … ce qui bien entendu risque 
de faire perdre un long temps de tra- 
vail et, pour comble de malheur, ef- 
face sans pitié ce qui avait été préala- 
blement sauvegardé sous le même 
nom. 


Par ailleurs, notons que Charts Unli- 
mited est un logiciel isolé, non prévu 
pour communiquer avec d’autres lo- 
giciels commerciaux. 


Avantages: Transferts peu nom- 
breux - Configuration imprimante 
chargée avec le programme. 


Inconvénients : Le manque de pro- 
tection, ou au minimum d'’avertisse- 
ment, contre une sauvegarde sans 
désignation préalable de zone - L'iso- 
lement du logiciel, qui ne peut-prati- 
quer d'échange avec aucun autre. 


Synthèse : Peu de remarques, si ce 
n'est qu'il est difficilement admissible 
de voir dans un logiciel plein de qua- 
lités une telle absence de sécurité. 


Documentation 


La documentation, en anglais seule- 
ment (il faut dire que le produit nous 
est arrivé directement des USA), 
comporte deux parties distinctes. 
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La première est un ‘Tutorial’, qui 
enseigne l'essentiel du logiciel autour 
d'un exercice sur la construction de 
l'organigramme d'une entreprise. 
C’est simple et bien fait. 


La seconde est classiquement pré- 
sentée par fonctions. Les fonctions 
apparaissent dans l’ordre alphabéti- 
que de la lettre-code qui sert à les 
appeler, donc sans aucune logique. 
Si l’on se souvient par ailleurs que 
les mnémoniques sont parfois étran- 
ges, on conçoit qu'il eût été préféra- 
ble de choisir un autre ordre ! 


Ne croyez pas que l'index final va 
apporter une aide supplémentaire : il 
est alphabétique lui aussi. 


Enfin, pas de synoptique comme cela 
existe maintenant pour la plupart des 
logiciels. 


Avantages : Bonne approche par le 
Tutorial”. 


Inconvénients : Ordre de présenta- 
tion peu logique dans la partie ”’Ma- 
nuel de Référence” - Absence d’un 
tableau synoptique - Documentation 


en anglais seulement, mais pour un 
produit encore non commercialisé en 
France. 


Synthèse : C’est propre et bien pré- 
senté, comme c’est généralement le 
cas pour les documentations améri- 
caines - Mais, à l'exception de la par- 
tie apprentissage, c'est fort peu 
commode à exploiter. 


Conclusion 


En avance par rapport aux logiciels 
de dessin qu’on voit maintenant sur 
le marché, Charts Unlimited reste un 
produit très attrayant et très compéti- 
tif, puisqu'il n’exige aucun accessoire 
matériel. 


Parmi ses faiblesses : L'isolement 
du logiciel qui, par ailleurs, ne dis- 
pose d'aucun outil de calcul - L’im- 
possibilité de descendre au niveau du 
point élémentaire - Un traitement 
moins complet des objets utilisateur 
que des objets standards - Une insuf- 
fisance de sécurité au niveau de la 
sauvegarde. 

Et, à un moindre titre : Une impres- 


sion extrêmement lente - Un certain 
ésotérisme dans la désignation des 
commandes - Une documentation 
peu facile à exploiter. 


Parmi ses forces: De très nom- 
breuses fonctionnalités, capables de 
satisfaire un utilisateur exigeant - Un 
écran clair, avec rappel possible d’un 
schéma complet pour contrôle - D'in- 
téressantes solutions d'impression - 
Une approche aisée et un apprentis- 
sage rapide - De très utiles notions 
de zones, d'objets et de symboles. 

Et, à un moindre titre : Un bon tuto- 
rial - Une agréable facilité de configu- 
ration du système d'impression. 


Pour les possesseurs 
d'Apple //e 


Attention à la touche ‘’CAPS 
LOCK”, qui doit toujours être enfon- 
cée (sauf en mode texte): dans le 
cas contraire, le logiciel ’’ne 
comprend rien”, refuse toute entrée 
sur la ligne réservée et ne prévient 


pas (mais ne va pas jusqu’à se blo- 


quer). su 
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Effectif 


1 


RER EE DRE 
17 agents 8 cadres 12 cadres 21 cadres et techniciens 18 agents 276 
85 representants (1) 125 ouvriers 


(1) dont iron: 
1/2 en GRECE 
1/2 à l'etranger 


Impression CHARTS UNLINITER 
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Effectif total : 295 
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Etebti le 31/1/1984 
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DUO DISK 









Comprenant 











? UC APPLE IE 
1 MONITEUR APPLE 


1 DUO DISK A© 


1 APPLE FAN 


PROMOTION APPLE I! 


Esthétique, rapide, sdencieux. le DUO DISK vous pro: 
Pose des drives plus modernes pour un prix identique à 
celui de 2 lecteurs séparés. Capacrté 286 K 





L'imprimanté conçue par APPLE pour votre APPLE 


Caractéristiques 


— 180 caractères par Secandes 


— bidirectionneiie 


matrice 7 * 9 prog, 16° 8 


— interface RS 232 


— majuscules, minuscules 
graphique point par point 


———_——__——— —— | 


COFFRET APPLE 698 F 


Dimensions identiques au cottret APPLE. Vendu avéc 
ou sans découpe numérique 


En plastiqu 
enfan 
45 
paddies 








JOYSTICK 
320 F 


souple moulé ce joystick résistera à vos 
difficultés. Autre avantage, d dispose de 
s de leçon à pouvoir être utilisé à la place des 


FLOPPY 5 POUCES 
COMPATIBLE APPLE 





Ces tlogpys ont | avantage de travailler à une vit 
nelement Supérieure à 
associe à une technologie plu 
entrainement direct et suspension cadre tendu) 





2690 F 





tanda 
{moteur 


PARALLELE APPLE 
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1360 F 


r 
Jans le 


rimantes 

























ENSEMBLE APPLE {I 
NOUVEAU PRIX 


APPLE II 





( " TIMAGE WRITER 
INTOSH 128k * 1 SET DE LOGICIEL 





CLEF EN MAIN 
caractéristiques 
CPU 64000 16132 bits 
— 64K de ROM 
— 128K de RAM 
- Horloge BMHz 
— 4 géné monophoniques 
Lecteur 3 pouces 
Résolution graphique par 


























Trijeu 
Naja 1 250 Frs 

















point 512 * 342 Nais 2 998 Frs 

— Intertace série Galaxiel 350 Fes 

_ — Clavier détachable Point bac maths 295 F1s 
Point bac maths? 295 Frs 






Logo 1490 Frs 
Sorcelterie 650 #15 
Téléjeux 

Tic tac eux 
Echec et max 
Zendar 

Raster blaster 
Pinball cons set 





















CARTE LANGAGE 16K APPLE 



































“ Pallywog 
Comprenant Comprenant : Choplifter 
7 * 1 UG APPLE IE * 1 UC APPLE I 256K AS | éatroms 40 
à 5 * 1 MONITEUR APPLE 12800 F | : : MouTEUR are LE) Zaxxon 
"pet * 1 LECTEUR 5 POUCES : 1 DISQUE OUR 5Mo ah Genesis 
* 1 SYSTÈME APPLE FAN * 1 LOGICIEL 508 







Chess (niveau 7) 
Flight samulator 
RDF 1985 









APPLE FAN 495 F 


Quand votre APPLE est chargi en cartes d'extension, il 
8 besoin d'un meilleur refroidissement, APPLE FAN est 
Un ventilateur carrassé qui se fixe à l'extérieur et ne 
nécessite aucun perçage pour sa fixation 






Disponible uniquement pour APPLE 11 + elle est utilisée 
essentiellement pour des applications langages type 
PASCAL 1330 Frs 




























Disponible également en compatible {sans ROM 
695 Frs 








UNE IMPRIMANTE !550F 
CLEFS EN MAIN 
POUR VOTRE APPLE 


80 Colonnes APPLE 


















Ces 2 cartes distribuées par APPLE sont indispensabtes 
dans la majorité des applicahons protessionnelles de 
votre APPLE IIE [visicalc, writer} 

80 colonnes .…. 998 Frs 
80 colonnes étendue * 2379 Frs 








ni li \: 1 CEE 
CARTE 6522 VIA APPLE 


Cammande de processus ? 
Vous avez besoin d'une carte 6522. Elle vous permet de 
disposer de 32 lignes que vous pouvez définir comme 
des entrées ou des sorties 


AK 40 1464 F | CARTE 8088 APPLE 














“étend la capacité RAM à 128K 


INTERFACE SERIE APPLE 
1360 F 



































r " — | À 
FLOPPY APPLE 3 POUCES ë LÀ Lee Extension 80 colonnes 
NF Cette carte permet 2 modes de travail G4K RAM 
2950 EF Er 1 — liaison RS232 classique avec signaux de HAND- et sartie péritel 
RE s | SHAKE 
Réservée à des apphcations protessionnelles qui né- — liaison RS232 type MODEM bi-directionnelle 2970 F 











Be | 


u | E 


Saviez-vous que le temps de transfert d'un lecteur 3 
Pouces est sensiblement jentique à celui d'un disque 
dur ? D'où l'intérèt du lecteur HITACHI. Autre avantage 
la taille des supoorts et leur solidité. Ce lecteur peut 
inéoriquement adresser 50 K de mémoire mais pour 
rester compatible avec le DOS 3.3 il est limité à 143 K 


cessitent des traitements temps réels très rapides 
Cette carte est vendue complte avec son Ingi- 
ciel 







RGB EX ...:4::,:.:.0820 F 


Moniteur couleur entrée RVB, Bande passante vidéo 15 MHz. Ré- 
solution horizomale 380. Résolution verticale 262 


RGB sense 4792 F 


Moniteur couleur entrée AVB. Bande passante vidéo > 15 MHz, 
Résolution horizontale 510, Résolution verticale 262. 


KP 8105 0700 


Imprimante 80 c 140 cos. Totalement compatible FX80. Qualité 
Courrier avec introduction feuille à feuille type machine à écrire 


KP 910... iercoreis ICO 


Imprimante 132 c 140 cps. Même caractéristiques que la 810 


CARTE 6809 APPLE 2800 F 


Vendue avec sa disquette FLEX et son manuel cette 
carte donne à votre APPLE la puissance du CPU 6809 
du MOTOROLA 


Z80 avec CP/M APPLE 
3100 F 


La carte Z80 les disquettes CP/M {les vraies), plus des 
manuels nombreux et complets, voici CE QUE vous 
propose le KIT CPIM de MICROSOFT. Fonctionne sur 
APPLE 114 ou NE 


CarteZ80, également disponible en version compatible 
sans CP/M et sans manuel 995 Frs 






























Indispensable pour interfacer votre APPLE avec un 
moniteur TAXAN 

APPLE 114 695 Frs 

APPLE IE * 1640 Frs 

‘Option 80 colonnes incluse 


CLAVIER TYPE APPLE 


sa LA 
1173 F 


Spléndide clavier genre IBM pour vatre APPLE 14 


OTHER MYSTERIES 































HORLOGE APPLE 785 F 


Indique en clair à vos programmes l'heure, la minute et 
la seconde 


LOGICIEL APPLE 




























































3 F 
nes CE Fes. 20 | Memum KOALA PAD 40 F 
] 
* MISIPLOT 1630 F be ruct af 5" DF 00 33,00 F 
ORCA : assembleur 1490 F (NE CUSTOM (PP 5° 06 TPI 39.80F 
* APPLE WRITER : traitement de texte 1572 F Se 5° DF O0 10 sec 43,00 F Cete tablette de digfalisation permet de créer toutes 
* BUSINESS GRAPHIQUE 1375 F 5" DF O0 16 sec 44,00 F les formes et tous les graphismes en direct, comme sur 
* QUICK FILE : traitement de lichier 790 F B" SF DD 44,00 F une table à dessin. Vendue avec manuels en français êt 
* MISIFILE : création et gestion de fichier 3320 F 8" DF 00 54,00 F logiciel pour APPLE 1470 Frs 






— APPLE LOGO 1600 F 
- APPLE PASCAL : langage 1820 F 
+ CX BASE 200 3290 F 
* CX BASE 200 + OX TEXTE 3990 F 


CARTE APPLE-TELL 
er | fl 










PROGRAMMATEUR DE MEMOIRES 
Avec son lagiciel intégré sur ROM le ramblo permet de 
programmer les 2708-2516-2532-2732-2758 en 21 ou 
254 


CARTE RAM 128K APPLE 










Ces livres sont coûteux mais représentent le NEC PLUS L 
ULTRA de la littérature technique. Tau 
vatre TRSBD au de votre APPLE dévoilé 
Verison américaine non sous tirée 












EPP 


Neon toner M” | 432: ; 





















































F 

The custom APPLE 315,00 F Compatible APPLE l1+ ou APPLE ILE ceîte carte dis- 
Distribuée par FEEDER cette carte est l'OUTIL DE Basic disk 1/0 faster and bitter 365,00 F pose de son propre système de *RÉFRESH* et donc ne 
COMMUNICATION How to da it an TRS 80 378,20 F 1562 F nécessite pas de connectians avec la RAM d'origine 

modem intégré TRS 80 disk and ather mystenes 284,00 F Elle peut émuler les cartes légende et saturne 
gestion tédétel Machine language disk 110 378,20 F En liaison directe avec 13 RAM APPLE vous pouvez # Complète sans logiciel 1990 Frs 

ossibilité de mémarisation sur disquette des mes The custom TRS 80 378,20 F visualiser ou modiliér directement le code hexa 

modem où télétel Basic bittes ,00 F contenu dans voire original Disponible également sous orme de CI seul 398 Frs 
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Cryptographes et arithméticiens, à 
vos claviers ! 


Ce Calculateur Entier permet de faire 
des opérations avec de très grands 
nombres. Il accepte jusqu’à 500 chif- 
fres par nombre pour les calculs. Le 
“prompt” qui indique que le pro- 
gramme attend vos ordres est le 
signe pour-cent "#7. 


Les règles de syntaxe de ce Calcula- 
teur Entier sont formalisées en nota- 
tion BNF. Les unités syntaxiques dé- 
finies sont entre chevrons (”<” et 
7>”). Les termes de leur définition 
suivent les trois symboles "::=". Le 
signe ‘!” sépare les différentes 
formes que peut prendre une unité 
syntaxique. Les parties optionnelles 
sont notées entre accolades (”{” et 
7} RETURN’ signifie: taper la 
touche RETURN. Tous les autres 
symboles qui ne sont pas entre che- 
vrons forment l'alphabet du langage 
du Calculateur. 


Mise en route 


Le code source Lisa est fourni (CAL- 
CULATEUR.L), ainsi que le code 
objet en binaire  (CALCULA- 
TEUR.B). La version standard est as- 
semblée à l'adresse 2112 (décimal) 
ou $840 (hexa). Pour lancer le pro- 
gramme, il suffit de faire : 


BRUN CALCULATEUR.B 


L'écran est effacé et on peut lire, en 
haut et à gauche : 


FAIRE : CALL 2112 


Si l'on exécute cette instruction, on 
se retrouve sous le contrôle du Cai- 
culateur Entier. Le prompt est le 
signe pour-cent "#7". 


Si, par accident, on quitte le pro- 
gramme (par exemple en faisant 
RESET ou une erreur DOS), on peut 
y retourner sans perdre les variables 
en cours d'utilisation. Pour cela, il 
faut faire : 


& (en Applesoft) ou CTRL-Y (en 
mode moniteur). 


Si, à la suite d'une sortie, on désire 
réinitialiser le programme, il faut 
faire : 


CALL 2112 (en Applesoft) ou 840G 
(en mode moniteur). 


Si la position du programme en mé- 
moire ne vous convient pas, vous 
pouvez l'assembler à une autre 
adresse (à condition qu'elle soit 
comprise entre $805 et $66D0). 
Tout ce qui précède reste valable, 
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Le Calculateur Entier 


seule l'adresse d'appel change. Au 
début, vous verrez apparaître sur 
votre écran : 


FAIRE : CALL aaaa 


où aaaa sera l'adresse décimale cor- 
respondant à l'adresse hexa d'origine 
de votre programme. Si par exemple 
vous mettez "ORG $805” en ligne 2 
du texte source, le programme affi- 
chera : 


FAIRE : CALL 2053 


Etudions à présent les possibilités de 
ce programme. 


Commandes 


Le Calculateur Entier est un interpré- 
teur de lignes. Chaque ligne de 
commande contient au plus 250 ca- 
ractères et doit se terminer par "RE- 
TURN”. 


<Ligne> ::= 
<Commande>"RETURN'” || 
<Commande DOS>"RETURN” 
<Commande> ::= 
{ <Dièse> }<Instruction>|| 
<Commandez : 
{ <Dièse> }<Instruction> 
<Dièse> ::= <Constante># 


Il peut y avoir plusieurs instructions 
par ligne, séparées par deux-points 


:”. Les blancs ne sont pas pris en 
compte. 


Le <Dièse> optionnel devant une 
<Instruction> représente un facteur 
répétiteur. La constante qui le pré- 
cède, et qui doit être un entier positif 
inférieur à 256, indique combien de 
fois la ligne doit être exécutée (voir la 
section sur les facteurs répétiteurs). 


Une <Commande DOS> est une 
commande du DOS standard. En 
fait on utilisera seulement les 
commandes (CATALOG, BSAVE 
(pour sauvegarder les résultats d’un 
travail), BLOAD (pour récupérer un 
travail en cours), PR#O et PR#1 
(pour diriger l'affichage vers l'écran 
ou l'imprimante). Une commande du 
DOS doit bien sûr être seule sur sa 
ligne. 


Exemples de lignes : 


%BLOAD nomfichier RETURN” 
H?2*x3: À =2/3R: $: @ ‘’RE- 
TURN” 

Le signe pour-cent ‘%" est le 
prompt et la touche RETURN est 
tapée en fin de ligne. Nous verrons 
plus loin la signification du ”$” et de 
l'arrobas ”(@”. 


Jacques Duma 


Instructions 


Il V a trois types d'instructions, pour 
l'initialisation du système, les affecta- 
tions, et les affichages. 


<Instruction> ::= & ||, || v || <Affec 
tation> || <Affichage> || <Rien> 
<Rien> ::= 


La virgule (,) est une pause entre 
deux instructions. À l'exécution, trois 
bips sont émis et il faut appuyer sur 
une touche pour continuer. Si 
CTRL:-C est appuvé à ce moment-là, 
il y a une interruption normale. 


Le guillemet (”) permet d'introduire 
des remarques dans le déroulement 
d'un calcul. Tout ce qui suit le (”) 
jusqu’au (:) suivant ou jusqu'à la fin 
de la ligne est simplement recopié à 
l'écran (les espaces sont supprimés). 
Par exemple : 

ZERO : A=0 : ?A: 

A=A+1: "UN : ?A : "FINI 

affichera : 


<Rien> signifie q'une instruction 
peut être vide (dans une ligne, on 


peut avoir ‘::” sans rien entre les 
deux-points séparateurs). 
Initialisation 


& est l'instruction qui permet de dé- 
saffecter toutes les variables en cours 
d'utilisation. Cette instruction, avant 
de réinitialiser tout le système, de- 
mande confirmation par : 


RAZ (O/N) ? 


Si la réponse est O pour OUI, le sys- 
tème est réinitialisé: dans le cas 
contraire, on retourne au niveau de 
commande sans rien perdre. 


Attention : le chargement d’un fichier 
de variables à partir d’une disquette 
fait perdre tout le contenu actuel de 
la mémoire. 


Instructions d’affectation 


Ce programme n'est qu’un calcula- 
teur et non un analyseur d’expres- 
sions arithmétiques. On ne peut donc 
faire qu'une opération par instruc- 
tion, mais on peut avoir plusieurs ins- 
tructions par ligne. 


Remarque : si les nombres sont très 
grands, les calculs peuvent durer un 
temps appréciable; il ne faut surtout 
pas s’impatienter. 
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Les additions et soustractions sont ra- 
pides. 

Une multiplication de deux nombres 
de 250 chiffres peut durer jusqu’à 15 
secondes. 

L'élévation à une puissance peut at- 
teindre 25 secondes (2 1685 par 
exemple). 

La division est la plus longue : la di- 
vision d’un nombre de 500 chiffres 
par un nombre de 1 chiffre peut 
prendre 60 secondes. 


<Affectation> ::=<Variable>= 

<Expression>{;<Variable> } 
<Expression> ::= 

{-} <Primaire> ||{-} <Primaire> 

<Opérateur><Primaire> 
<Primaire> ::= | 

<Variable> ||<Constante> 
<Opérateur> ::= 

++ 
Les opérations permises sont donc 
l'addition, la soustraction, la multipli- 
cation, la division entière (avec ‘”/”}, 
qui peut fournir son reste (à condi- 
tion que les deux opérandes soient 
positifs), la puissance entière à expo- 
sant positif (avec ” ”) et enfin la 
multiplication par une puissance de 
10 (avec l’apostrophe). 


Voici quelques exemples : 


A=-3+123: B=A 5: C=A/B: 
D=-AxC: C=12-A: A=A/A:A: 
C=33/5:B 


Pour la division entière, on a avec le 
reste la possibilité d’une affectation 
double. Exemple : 


Q=13/5 : la valeur 2 est affectée à 
la variable Q. 

Q=13/5:R : la valeur 2 est affectée 
à Qetlereste.3àR. 


R=13/5R : la valeur 2 est affectée à 
R, puis 3 est aussi affecté à R. Le 2 
est donc perdu, mais on à ainsi ob- 
tenu le reste de la division en utili- 
sant une seule variable … 


L'option {;<Variable> } n’est accep- 
tée par le Calculateur, à la suite 
d'une affectation, que dans le cas de 
la division. Dans les autres cas, une 
erreur est détectée. 


L'apostrophe (‘) permet de faire très 
rapidement les multiplications et divi- 
sions par les puissances de 10 (des 
décalages). X’N est égal à Xx(10 N). 
X et N peuvent être positifs ou néga- 
tifs. Par exemple, si N=5 et M=-5, 
alors : 

? 123456789'N donne =12 3456 
7890 0000 

? 123456789'M donne =01 2345 

Si l'exposant de 10 est négatif, cette 
opération ne rend pas de reste, 
contrairement à la division. 


Limites - Les règles suivantes 
doivent être respectées : 


e les deux opérandes d'une division 





doivent être positifs: 

@ il n'est pas possible de diviser par 
zéro; 

e l'exposant d'une puissance doit 
être positif; 

e tout résultat après calcul doit avoir 
moins de 509 chiffres. 

e l'exposant de 10 dans (’) ne doit 
pas dépasser 511 en valeur abso- 
ue. 


Si l’on désire affecter à une variable 
un nombre de plus de 250 chiffres, il 
faut procéder par étapes car la ligne 
est limitée à 250 caractères. Ainsi, un 
nombre de 400 chiffres sera affecté à 
la variable X en deux lignes : 


% X={(la suite des 200 premiers chif- 
fres) 200 "RETURN" 
% X=X+(la suite des 200 derniers 
chiffres) "RETURN" 


Variables 


On dispose de 26 variables distinctes. 
Chaque variable a pour identificateur 
une des lettres de l'alphabet (A...7) 
et pour valeur un nombre entier rela- 
tif, c'est-à-dire un entier positif, nul 
ou négatif. 


<Variable> ::= 
A!B!CID'E!FIG'H!Y!KILIMINIO!PIQ 
IRISITIUIVIWIX!YIZ 


À l’initialisation du système, les varia- 
bles ne sont pas affectées (elles n'ont 
pas de valeurs). 


L'utilisation d'une <Variable> non 
initialisée dans une <Expression> 
provoque le message d'erreur : 


? VARIABLE ’x NON AFFECTEE 


Pour utiliser une <Variable>., il faut 
donc l'initialiser en lui affectant pour 
valeur une <Constante> ou une 
<Expression>. 


Constantes 


Une constante est un nombre entier 
positif. 


<Constante> ::= <Chiffre> || 
<Constante><Chiffre> 
<Chiffre> ::= 0111213141516171819 


Il y a cependant une limitation à la 
taille des constantes. On ne peut pas 
entrer plus de 250 caractères au cla- 
vier; de plus, après calcul, le nombre 
le plus grand ne peut avoir plus de 
508 chiffres. 


Les blancs étant non significatifs dans 
une ligne, on peut entrer des espaces 
entre les groupes de chiffres d'une 
constante, ce qui facilite l'écriture des 
très grands nombres. 


Si une <Constante> est utilisée de 
manière répétitive dans un calcul, il 
vaut mieux l'affecter à une <Varia- 
ble> et utiliser la <Variable>. Les 
calculs seront plus rapides. Le co- 
dage d'une constante est en effet 
assez long. 


Instructions d’affichage 


Ces instructions permettent de visua- 
liser les résultats sur l'écran (ou sur 
l'imprimante, si l’on a fait préalable- 
ment PR#i avec l'imprimante sur le 
Slot i). 


<Affichage> ::= 
$ | @l ?<Expression> 


?<Expression> affiche la valeur de 
l'expression. Le Calculateur passe à 
la ligne et écrit =” suivi de la va- 
leur. Si l'expression est une division, 
deux résultats sont donnés : le quo- 
tient puis le reste. 


Les nombres sont écrits avec un es- 
pace tous les quatre chiffres pour fa- 
ciliter la lecture. Un caractère CR 
(Carriage Return) est envoyé tous les 
79 caractères pour que les sorties sur 
imprimante soient formatées correc- 
tement. 


On peut afficher les valeurs de toutes 
les variables en service à un instant 
donné par (&. Ceci écrit : 


AFFICHAGE DES VARIABLES AF- 
FECTEES : variables et valeurs, par 
ordre alphabétique 


L'affichage écran est rapide. On peut 
l'interrompre entre chaque variable 
en tapant sur la barre d'espacement: 
on le relance de la même façon. 
CTRL-C permet d'arrêter l'affichage 
et de récupérer le prompt. 


On peut aussi afficher en hexadéci- 
mal l'adresse et la longueur de la 
zone mémoire à sauvegarder pour 
conserver les valeurs calculées et af- 
fectées aux variables en service. 


"$” donne l'adresse et la longueur 
de la zone mémoire à sauvegarder 
par un BSAVE. Le format est le sui- 
vant: ZONE A SAUVEGARDER 
ABxxxx,LEvyyy 

où xxxx est l'adresse du début de la 
zone à sauvegarder et yyyy sa lon- 
geur, le tout en hexadécimai. 


Par exemple, pour sauvegarder les 
variables calculées sur la disquette 
sous le nom de fichier "MES-CAL- 
CULS”, il faut faire : 


%BSAVE  MES-CALCULS,A$xxxx, 
L$yyyy RETURN” 


La valeur de A$xxxx dépend de 
l'adresse à laquelle le programme a 
été assemblé (on a normalement 
A$1700). La valeur de L£yyuv est 
L$0070 à l'initialisation du système. 
Chaque variable affectée occupe 256 
octets supplémentaires ($100). On 
aura ainsi ‘’L$0370” si 3 variables 
ont été affectées. 


Pour récupérer ultérieurement les va- 
leurs sur lesquelles on travaille, il suf- 
fira de faire : 


%BLOAD  MES-CALCULS  7RE- 
TURN” 
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Attention : le contenu de la mémoire 
avant le BLOAD est perdu. 


Les facteurs répétiteurs 


Une ligne normale est exécutée une 
seule fois. Si le <Dièse> est utilisé, 
on peut exécuter une <Ligne> ou 
une fin de ligne plusieurs fois. 


La constante qui précède le dièse 
(#) doit être un entier positif inférieur 
ou égal à 255. Ce nombre indique 
combien de fois il faut exécuter tout 
ce qui suit le dièse jusqu’à la fin de 
la ligne (jusqu’au "RETURN". 


Il peut y avoir plusieurs fois le <Diè- 
se> sur une même ligne. Chaque 
facteur répétiteur porte sur ce qui le 
suit jusqu'à la fin de la ligne. Le Cal- 
culateur n'est pas programmable, 
mais le <Dièse> permet de faire 
assez facilement des calculs répétitifs 
(comptages, factorielles). 


S'il y a trop de facteurs répétiteurs 
sur une même ligne, il est possible 
que le programme soit mis en défaut 
par saturation de la pile. Il vaut donc 
mieux éviter d'utiliser plus de 15 fois 
le dièse dans la même ligne (la 
contrainte est raisonnable ...). 


La syntaxe impose que chaque dièse 
soit séparé du suivant par au moins 
une instruction (éventuellement 
vide). Il y a donc au moins un deux- 
points entre chaque paire de dièses. 
Si l'on veut afficher 500 fois la valeur 
3, il faut taper la ligne suivante : 


% 10# : 50 # ?3 "RETURN" 
Voici quelques exemples : 


Le signe pour-cent "%” au début de 
la ligne est le prompt. La suite est 
tapée par l'utilisateur jusqu'au "RE- 
TURN”. Les blancs sont non signifi- 
catifs (on peut ne pas en mettre). Le 
reste est affiché par le Calculateur : 


% ? 2+3 "RETURN" 
=05 
% 3# ?2+3 "RETURN? 


=05 

=05 

% A=0 : 100# A=A+1 
? 


of 


: 10# @: 10#A=A 
+1: F=AxF 
AFFICHAGE DES 
AFFECTEES : 
A=00 
F=01 
AFFICHAGE DES 
AFFECTEES : 
A=10 
F=0362 880 
AFFICHAGE DES 
AFFECTEES : 
A=20 
F=0243 2902 0081 7664 0000 
AFFICHAGE DES VARIABLES 


VARIABLES 


VARIABLES 


VARIABLES 


Pom's n° 12 


AFFECTEES : 

A=30 

F=0265 2528 5981 2191 0586 3630 
8480 0000 00... 


Cet exemple calcule dans F la facto- 
rielle de A. Il y a deux boucles imbri- 
quées. La première affiche les variables 
affectées (”(@” est exécuté 10 fois), et 
exécute la seconde boucle. La seconde 
incrémente À et multiplie À par F. Les 
résultats ne sont donc affichés qu'une 
fois sur dix. Le dernier affichage est 
A=90 et F la valeur de factorielle 90 
(90!). On termine alors les deux bou- 
cles par le calcul de factorielle 100 
(100!}, mais la valeur n'est pas affi- 
chée. Si l’on fait ’@’”, on affichera 
A=100 et F=100! A titre d’informa- 
tion, le dépassement de capacité est 
obtenu pour la factorielle de 256 
(2561). 


Un autre exemple utile : 


% N= 1225313: K=3: 10#: 60# 
Q=N/KR: X=1/R: K=K+2 RE- 
TURN” 

? DIVISION PAR ZERO 

% @ “RETURN” 

AFFICHAGE DES VARIABLES AF- 
FECTEES : 

K=0997 

N=0122 5313 

Q=1229 

R=00 

X=00 

N=1229: K=3: 20# Q=N/KR: 
X=1/R : K=K+2 "RETURN" 

% @ “RETURN” 

AFFICHAGE DES VARIABLES AF- 
FECTEES : 


La première ligne permet de chercher 
si le nombre N=1225313 est premier. 
Pour cela, on le divise par tous les 
nombres impairs à partir de K=3 et 
ceci 600 fois (on arrive ainsi à la racine 
de N). Il faut donc ajouter 2 à K 600 
fois (10# :60 #). 


Le quotient est Q, le reste est R. Si N 
n'est pas premier, le reste R prendra la 
valeur zéro à un certain moment. L'ins- 
truction (X=1/R) permet d'interrompre 
le calcul à cet instant (car il y a divison 
par zéro). 


Dans notre exemple, ceci se produit 
après 4 minutes de calcul. On affiche 
alors les variables, ce qui permet de 
voir que N=KxQ, c'est-à-dire que 
1225313 = 997 x 1229 et n’est donc 
pas premier. 


On essaye de même de décomposer 
1229 en facteurs premiers. Mais, cette 
fois, on reprend la main sans erreur. 
Le nombre 1229 est donc premier. 


Pour des grands nombres, le temps de 
calcul reste hélas prohibitif. 


Interruptions 


On sait déjà qu'il est possible de pro- 
grammer des arrêts (,), d'interrompre 
ou de reprendre l'affichage avec la 
barre d’espacement. On peut aussi 
arrêter les calculs par CTRL-C. Cette 
interruption est non destructive, car 
elle n'est pas prise en compte n’im- 
porte quand. Si l’on fait CTRL-C du- 
rant l'affichage, le message d’inter- 
ruption apparaît à l'écran et on 
retourne au niveau de commande. 
La valeur des variables (à cet instant) 
n'est pas modifiée. 


Si l’on fait CTRL-C au cours d’un 
calcul, on peut attendre l'interruption 
entre deux et une dizaine de secon- 
des. En effet, le CTRL-C n'est pris 
en compte que dans les divisions et 
les puissances, mais pas dans les 
multiplications. Dans le cas d'une af- 
fectation, si le calcul est interrompu, 
l'affectation n’a pas lieu et la valeur 
de la variable demeure inchangée. 


Si le CTRL-C intervient au cours 
d’un calcul avec facteur répétiteur, il 
est difficile de savoir si l'interruption 
a lieu au cours d'un calcul (s'il y a 
7” où ” ” dans le calcul), ou si l’in- 
terruption a lieu entre deux répéti- 
tions. Il faut alors regarder la valeur 
des compteurs que l’on a utilisés 
dans la boucle pour évaluer la posi- 
tion du point d'interruption. 


Remarque : il n'est pas possible 
de reprendre un calcul interrompu. 
Soyez donc patients, car les temps 
de calcul sont parfois importants. 


Il peut aussi se produire des interrup- 
tions accidentelles. Si l'on tape la 
touche RESET, on se retrouve soit 
sous contrôle de l'Applesoft (ROM 
Autostart), soit sous le contrôle du 
moniteur (ancienne ROM). 


Pour retourner dans le Calculateur 
sans perdre le travail en cours, il faut 
faire ”&” (à partir de l'Applesoft) ou 
CTRL-Y (à partir du moniteur). Si 
une erreur est faite dans une 
commande du DOS, on quitte aussi 
le Calculateur pour se retrouver sous 
contrôle du Basic. La procédure de 
retour est la même. 


Attention : si on fait RESET pen- 
dant l'affectation d’une variable, 
celle-ci sera incorrectement affectée; 
des erreurs pourront alors se pro- 
duire avec cette variable. Méfiez-vous 
par conséquent du RESET. 


Pour utiliser l’Applesoft et le Calcula- 
teur ensemble, il faut : 


- assembler le programme à l’adresse 
$66D0 (ORG $66D0 et OBJ &800) 
- après sauvegarde correcte du code 
binaire, faire BRUN: 

FAIRE CALL 26320 apparaît à 
l'écran. Il faut alors faire : 
HIMEM:26320 : CALL 26320 





EESESPEP EEE EE SES EE LES EE EE EE EEE EEE 
san. 


CHERE 2 AS PEUR SRE F9 13 AO 
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Le Calculateur est 


alors protégé 
contre le Basic. 


Entrées-Sorties 


Si une imprimante est branchée sur 
le slot i, faire PR#i pour sortir les ré- 
sultats sur papier. La présentation 
l'imprimante n'est pas identique 
celle de l'écran. 


à 
à 


Certains CR ne sont transmis qu’à 
l'écran pour plus de lisibilité, mais les 
lignes ne sont pas sautées sur l’impri- 
mante. De plus, les très grands nom- 
bres sont présentés par lignes de 80 
caractères sur l'imprimante. 


Si les sorties se font sur papier, on 
ne voit rien à l'écran. Mais si votre 
interface d'imprimante permet de 
conserver l'image écran grâce à un 
caractère de contrôle, vous pouvez 
entrer ce caractère (sans tenir compte 
de l'erreur de syntaxe qu'il provo- 
quera). Tout doit fonctionner norma- 
lement. 


Exemples 


Voici le résultat d’une séquence de 
travail normale. Ce qui suit le signe 
pour-cent ”%” est tapé au clavier par 
l'utilisateur, suivi de "RETURN"; le 
reste est affiché par le Calculateur 
Entier. 


D?12345+123 
—0124 68 


%$ 
ZONE A SAUVEGARDER A$182C, 
L$0070 


PA=—-123456789 : $ : @: B = 
A+A:@ 

ZONE A SAUVEGARDER A$1700, 
L$0170 


AFFICHAGE 
AFFECTEES : 


= —0123 4567 89 


DES VARIABLES 


AFFICHAGE 
AFFECTEES : 


A= —0123 4567 89 

B= -0246 9135 78 

%?63/5 : ?—12#12 : 22 ° 100 :?C 
= 12 

= 03 

= —0144 


=0126 7650 6002 2822 9401 4967 
0320 5376 


? VARIABLE ’C' NON AFFECTEE 
%A= A+ -D 

? PRIMAIRE INCORRECT 
FA=3/0 

? DIVISION PAR ZERO 
PRA=S5/3;A : ?A : ?-3/A 

=02 

? OPERANDE NEGATIF 


% A=0 : 20# : 20# A=A+1 
% ?A 


= 0400 
%... etc. etc... 


DES VARIABLES 


Résumé des règles syn- 
taxiques 


<Ligne> ::= 
<Commande> "RETURN" | 
<Commande DOS>"RETURN" 


<Commande> ::= 
{ <Dièse>}<Instruction> || 
<Commande> : { <Dièse> } 
<Instruction> 
<Dièse> ::= 
<Constante># 
<lInstruction> ::= 
& ||. |” || <Affectation> | 
<Affichage> || <Rien> 
<Affichage > ::= 
$ || @ ?<Expression> 
<Affectation> ::= 
<Variable>=<Expression> 
{<Variable> } 
<Expression> ::= 
{-}<Primaire> |[{-}<Primaire> 
<Opérateur><Primaire> 


<Primaire> ::= 
<Variable> ||<Constante> 
<Variable> ::=<Lettre> 


<Constante> ::=<Chiffre>|| 
<Constante><Chiffre> 


<Opérateur> :=. 
+ 1x 
<Lettre> ::= 
AIBICIDIE!FIG!'H!IUY!KILIMINIO! 
PIQIRISITIUIUVIWIXIVIZ 
<Chiffre> ::= 0111213141516171819 
<Rien> ::= 


Les messages d’erreur 


? ERREUR DE SYNTAXE 
? INTERRUPTION DE L'UTILISA- 
TEUR 


L'utilisateur a fait CTRL-C. 


? FACTEUR REPETITEUR INCOR- 
RECT 
Facteur > 255, ou il manque #. 


? DIVISION PAR ZERO 


? OPERANDE NEGATIF 

Les opérandes d’une division doivent 
être positifs. 

? RESULTAT TROP GRAND 

Le résultat du calcul a plus de 508 
chiffres. 


? EXPOSANT NEGATIF 

Pour une puissance, l'exposant doit 
être positif. 

? AFFECTATION INCORRECTE 

Il peut manquer le signe (=). 


? PRIMAIRE INCORRECT 


? VARIABLE ’x NON AFFECTEE 
La variable dont le nom est (x) n’est 
pas en service. 


? EXPRESSION INCORRECTE 
? MAUVAIS OPERATEUR 


NDLR : le Calculateur est très utile 
pour lire le livre passionnant de Fran- 
çois Le Lionnais “Les nombres re- 
marquables”, chez Herman. Encore 
une fois, Pom's vous offre un pro- 
gramme qui, à lui seul, se vendrait 
plus cher que l'abonnement d'un an 
avec disquettes. Nous n'avons pas 
publié le programme source, car il y 
en aurait pour 15 pages en deux co- 
lonnes … Le source, ainsi que la ré- 
capitulation, se trouve comme d’ha- 
bitude sur la disquette d’accom- 
pagnement du numéro. Les droits de 
l'auteur seront bien entendu établis 
sur la base de la longueur totale de 
l’article, incluant ces 15 pages non 
publiées. 





Calculateur Entier 
Code objet 


*840.1840 


0840- A9 4C 8D F5 03 8D F8 03 
0848- AS SE 8D F6 O3 8D F3 O3 
0850- A9 O9 8D F7 O3 8D FA O3 
0858- 20 58 FC 20 8C 17 C6 C1 
0860- C9 D2 CS BA AO C3 C1 CC 
0868- CC AO 87 OO A2 40 AS 08 
0870- 20 24 ED 20 8E FD 20 8E 


Tiseie HER ESRMRRE EME 
RESTES TERRA enSRSS 


a ter PT 


0878- FD A9 4C 8D 40 08 AS 8B 
0880- 8D 41 08 A9 08 8D 42 08 
0888- 4C D3 03 20 58 FC 20 9B 
0830- 17 AO AD AD AD AD AD AD 
0838- AD AD AD AD AD AD AD AD 
O8A0- AD AD AD AD 8D AO C3 C1 
O8A8- CC C3 DS CC C1 D4 CS DS 
08B0- D2 AO C5 CE D4 C9 CS D2 
O8B8- 8D AO AD AD AD AD AD AD 
08CO0- AD AD AD AD AD AD AD AD 
O8C8- AD AD AD AD 8D AO AO AO 
O8DO- AO AO AO AO D6 C5 D2 D3 
O8D8- CS CF CE AO AO B1 AE B2 


O08E0- 8D AO AO AO AO AO AO AO 
O8E8- AD AD AD AD AD AD AD AD 
O8FO- AD AD AD AD 8D AO AO AO 
O08F8- AO AO AO AO DO Ci D2 AO 
09300- AO CA AE AO C4 DS CD C1 
0908- 8D AO AO AO AO AO AO AO 
09310- AD AD AD AD AD AD AD AD 
0918- AD AD AD AD 8D AO AO AO 
0920- AO AO AO AO BC BO B6 AE 
0328- BO B1 AE B1 B9S B8 B4 BE 
0330- 8D AO AO AO AO AO AO AO 
0338- AD AD AD AD AD AD AD AD 
0940- AD AD AD AD 8D 8D OO A2 
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0S48- 7F AS 
0350- FA A9 
0358- 8D 38 
0360- FC 20 
09368- AD AD 
09370- AD AD 
0978- AO C3 
09380- Da CS 
0988- C9 CS 
0330- AD AD 
0338- AD AD 
03AO- AO D2 
0SA8- AO D3 
09BO- D4 C9 
0SB8- AD AD 
09C0- AD AD 
03C8- 00 D8 
03D0- AS O0 
03D8- 20 D1 
O0OSEO- FO 16 
O0SE8- A8 68 
O3FO- 8A 48 
03F8- 68 DO 
0A00O- 48 A9 
OAO8- AS AS 
0410- 00 FO 
OA18- DF O9 
0A20- DF 15 
O428- 18 20 
0430- 53 OE 
0438- OA 6D 
0440- D1 15 
0448- 8D 10 
0ASO- 15 90 
0AS8- 18 OA 
04A60- 30 03 
0A68- 90 03 
0A70- 20 D1 
0A78- 18 930 
04A80- 18 20 
OA88- 4C 45 
OA9SO- D3 15 
04A98- 18 48 
OAAO- DO O3 
OAA8- FE 17 
OABO- 7F OC 
OAB8- 8D C2 
OACO- OA 4C 
OAC8- 06 20 
OADO- 8E FD 
OAD8- 20 C9 
OAEO- 20 3A 
OAE8- SA 60 
OAFO- 60 7F 
OAF8- CF DO 
0B0O0O- 17 88 
OBO8- 88 88 
0B10- AO AO 
0B18- AO AO 
0B20- 20 C3 
O0B28- 20 3A 
0B30- FF 8D 
0B38- FB 20 
0B40- D8 09 
OB48- FF 15 
0BSO- CS AO 
OBS58- CS C7 
O0B6O- AO Ci 
OB68- FD A9 
0B70- 17 AC 
0B78- 20 DA 
9B80- FD 20 
OB88- D8 09 
9B9O- FF 15 
0B38- C9 C3 
OBAO- CS D3 
OBA8- C2 CC 
OBBO- CS C3 
OBB8- 8D 00 
OBCO- FF 20 
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oBC8- 
OBDO- 
OBD8- 
OBEO- 
OBE8- 
OBFO- 
OBF8- 
0C00- 
OC08- 
0C10- 
oC18- 
YC20- 
OoC28- 
0C30- 
0C38- 
0C40- 
0C48 - 
OCS0- 
0CS8- 
OC60- 
OC68- 
0C70- 
0C78- 
OC80- 
OC88- 
ac30- 
OC38- 
OCAO- 
OCA8- 
9CBO- 
OCB8- 
OcCco- 
OCC8- 
OCDO- 
OCD8- 
OCEO- 
OCE8- 
OCFO- 
OCF8- 
0D00- 
ODO8- 
OD10- 
OD18- 
0D20- 
OD28- 
0D30- 
0D38- 
OD40- 
OD48 - 
ODSO- 
ODS8- 
OD60- 
0D68- 
0D70- 
0D78- 
0D80- 
OD88- 
OD30- 
ODS8- 
ODAO- 
ODA8- 
ODBO- 
ODB8- 
ODCO- 
ODC8- 
ODDO- 
ODD8- 
ODEO- 
ODE8- 
ODFO- 
ODF8- 
0E00- 
OEO8- 
OE10- 
OE18- 
OE20- 
OE28- 
0E30- 
0E38- 
0E40- 


co 
ÊE 
293 
DO 
FD 
20 
A9 
10 
20 
OC 
25 
AA 
FD 
FF 
88 
E8 
AQ 
20 
Di 
F3 
SA 
O6 
0B 
EF 
11 
cg 
16 
04 
DO 
BO 
20 
ac 
OA 
20 
OD 
2C 
AD 
18 
2C 
AD 
18 
03 
00 
cs 
A3 
8D 
18 
18 
23 
AS 
EE 
18 
2B 
ÊE 
13 
D1 
15 
FF 
OA 
DO 
O1 
02 
03 
O4 
05 
06 
18 
C3 
20 
DF 
03 
OA 
ac 
C3 
2E 
AD 
0E 
ac 
15 
04 
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1348- DO 
1350- 18 
1358- FA 
1360- A2 
1368- 88 
1370- 18 
1378- FF 
1380- DO 
1388- BD 
13930- 25 
13938- 60 
1340- 69 
1348- FF 
13B0- F5 
13B8- 8D 
13C0- 13 
13C8- E8 
13D0- 8D 
13D8- 91 
13E0- AD 
13E8- 18 
13FO0- 1C 
13F8- 4C 
1400- 15 
1408- 22 
1410- 8D 
1418- 18 
1420- 8E 
1428- AD 
1430- 18 
1438- 95 
1440- AD 
1448- 15 
1450- 1F 
1458- 8D 
1460- 15 
1468- 1D 
1470- AD 
1478- 18 
1480- 94 
1488- AD 
1430- 18 
1498- 26 
1440- 8D 
1448- 15 
14B0- 24 
14B8- 8D 
14C0- 18 
14C8- 92 
14D0- AD 
14D8- 18 
14E0- 21 
14E8- 8D 
14FO0- 15 
14F8- 27 
1500- 8D 
1508- 18 
1510- 931 
1518- AD 
1520- 18 
1528- 28 
1530- 4C 
1538- BD 
1540- 18 
1548- 94 
1550- BD 
1558- 18 
1560- 11 
1568- 2E 
1570- 8D 
1578- 15 
1580- 2C 
1588- SD 
1530- BD 
1598- F7 
1540- CO 
1548- 10 
15B0- B7 
15B8- AD 
15C0- 06 


15C8- 
15D0- 
15D8- 
15E0- 
15E8- 
15FO- 
15F8- 
1600- 
1608- 
1610- 
1618- 
1620- 
1628- 
1630- 
1638- 
1640- 
1648- 
1650- 
1658- 
1660- 
1668- 
1670- 
1678- 
1680- 
1688- 
16930- 
1638- 
16A0- 
1648- 
16B0- 
16B8- 
16C0- 
16C8- 
16D0- 
16D8- 
16E0- 
16E8- 
16FO- 
16F8- 
1700- 
1708- 
1710- 
1718- 
1720- 
1728- 
1730- 
1738- 
1740- 
1748- 
1750- 
1758- 
1760- 
1768- 
1770- 
1778- 
1780- 
1788- 
17930- 
1798- 
17A0- 
1748- 
17B0- 
17B8- 
17C0- 
17C8- 
17D0- 
17D8- 
17E0- 
17E8- 
17FO0- 
17F8- 
1800- 
1808- 
1810- 
1818- 
1820- 
1828- 
1830- 
1838- 
1840- 
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EXP(PIxSQR(163)) est-il entier ? 


Le problème 


Il y à quelques années, la revue 
Sciences & Vie annonçait dans ses 
récréations mathématiques que 
EXP(PIxSQR(163)) était entier et va- 
lait 262.537.412.640.768.744, en 
avançant que des calculs poussés sur 
ordinateur n'avaient donné que des 
chiffres 9 dans les 2 millions de pre- 
mières décimales. La revue parlait 
même d'une démonstration basée 
sur le nombre d’Euler (nombre irra- 
tionnel, comme PI et e). 


Calcul sur TI 58 


Je voulais en avoir le coeur net. 
Aussi, en 1979, j'attaquai le pro- 
blème muni de ma calculatrice TI 58. 
J'utilisai pour cela un programme de 
multiplication de nombres de 50 chif- 
fres. Comme toutes les autres opéra- 
tions étaient manuelles à cause de la 
faible capacité de la calculatrice, j'uti- 
lisai de nombreuses astuces pour cal- 
culer la racine carrée et l’exponen- 
tielle. Après un après-midi de calcul 
(et un autre pour vérification), j’ob- 
tins un résultat à 50 chiffres (donc 31 
décimales, dont au moins 25 de- 
vaient être bonnes en tenant compte 
des erreurs d’arrondi). Qu'’obtins-je ? 


Calcul en Basic 


En 1981, muni d’un Apple, je déci- 
dai de confirmer ce résultat avec un 
programme Applesoft (joint sur la 
disquette d'accompagnement de ce 
numéro, afin que les lecteurs intéres- 
sés puissent ’l'éplucher”). Ce pro- 
gramme utilise des tableaux pour sto- 
cker, par tranches de 4 chiffres, des 
grands nombres. De plus, il possède 
des routines pour faire des multiplica- 
tions et additions de grands nombres 
ou des divisions de grands nombres 
par une constante d'au plus 4 chif- 
fres. Là, les résultats sont obtenus 
bien plus rapidement (14 mn pour 
80 chiffres, 5 mn avec un pro- 
gramme compilé). 


Le Calculateur Entier 


Enfin, tel Zorro, arrive le Calculateur 
Entier de Jacques Duma, muni de la 
division de grands nombres; je vais 
montrer dans les lignes qui suivent à 
quel point il devient alors facile de 
programmer ce calcul. 


NDLR : Olivier Herz a rédigé son ar- 
ticle à partir de la version 1.0 du cal- 
culateur. La lecture de cet article a 
amené Jacques Duma à réaliser et à 
nous envoyer la version 1.2, publiée 
dans ce numéro. Cette version a 
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ajouté la pause entre deux instruc- 
tions (,), l'introduction des remarques 
(”) et surtout la multiplication par 
une puissance de 10 (‘). Ainsi, le 
programme adapté à cette version 
calcule-t-il le résultat en cinq minutes 
de moins que EXP.EXEC ! 

Nous avons décidé de ne pas modi- 
fier le texte original d'Olivier pour lui 
garder sa virginité initiale (au texte, 
bien sûr). Le lecteur relativisera donc 
certaines remarques et pourra d’au- 
tant mieux apprécier la qualité des 
analyses d'Olivier et l'utilité de ses 
observations. 


1 - Comme on travaille uniquement 
sur des nombres entiers, il va falloir 
utiliser une constante multiplicative 
pour transformer des nombres déci- 
maux en nombres entiers. Soit par 
exemple, pour des calculs sur 100 
décimales (on pourrait aller presque 
jusqu'à 254=508/2 décimales) : 
K=10 100 

Bien entendu, K n'est pas nécessaire- 
ment une puissance de 10. Voir à ce 
sujet la remarque (2). 


2 - Pour calculer la racine carrée de 
163, on utilise la méthode de New- 
ton, par approximations successives 
avec Ja formule  U,.,: 
(U,+163/U,) / 2, en prenant 13 
comme approximation de départ. 
Soit : 
R=KxK: R=163*R: U=134K: 
7# : X=R/U : U=X+U : U=U/2 

7 itérations suffisent pour avoir 100 
bonnes décimales. 


3 - PI est supposé connu (le Palais 
de la Découverte publie 2000 déci- 
males sur une carte postale). Et l'on 
calcule PIxSQR(163) : 

R=3 14159 26535 89793 23846 
26433 83279 50288 41971 69399 
37510 58209 74944 59230 78164 
06286 20899 86280 34825 34211 
70679xU : R=R/K 


4 - On obtient 40.109... et l’on va 
calculer EXP(40.109...) = EXP(40) x 
EXP(0.109..). On ne garde donc 
que la partie décimale du résultat : 

X = 40*K:R = R-X 


5 - On calcule son exponentielle par 
développement limité avec la formule 
EXP(X) = 1 + X + X 2/2 + 
X n/nl=somme des U,, avec U=i 


X/ 
: 10: U=K: 45#: I=I+1: 
U=UxR : U=U/K : U=U/T : S=S+U 
On calcule suffisamment de termes 
(ici 45) pour que U, soit négligeable. 


6 - On calcule de la même façon, 
avec ici X=1 : 


Olivier Herz 


E=K: I=0: U=K: 70#: 
U=U/ : E=E+U 


7 - I ne reste plus qu’à calculer et 
fournir le résultat (avec 100 décima- 
les, dont peut-être 80 à 90 de signifi- 
catives) : 

SxE : S=S/K 


Que pensez-vous du résultat ? Scien- 
ces & Vie n’avait-il pas publié son ar- 
ticle dans le numéro d'avril ? 


I=I+1 : 


Remarques 


(1) Tous ces résultats peuvent être 
obtenus automatiquement grâce au 
fichier EXP.EXEC. Il suffit de se met- 
tre dans le calculateur et d'EXECuter 
ce fichier pour ce faire; on obtient le 
résultat (ici 100 chiffres) en un peu 
plus de 20 minutes. Faire MON 
C.I,O au préalable si l’on veut voir 
l'avancement des calculs. 


On peut en effet utiliser de véritables 
programmes pour ce calculateur 
grâce aux fichiers EXEC. Utilisez Ap- 
plewriter II ou reportez-vous au nu- 
méro 3 de Pom's (p. 55) ou au re- 
cueil (p. 142) pour fabriquer de tels 
fichiers. 


(2) Au vu de ces calculs, il semble 
qu'on puisse émettre un regret pour 
le calculateur. On aurait gagné beau- 
coup de temps dans les calculs pour 
nombres non entiers si l’on avait eu 
une opération donnant, à partir d'un 
grand nombre N et d’un entier (posi- 
tif ou négatif) K de 3 chiffres au plus, 
le résultat Nx(10 K). Les nombres 
étant codés en BCD, ce calcul aurait 
été ultra-rapide. 


(3) Bien entendu, en utilisant des as- 
tuces, on peut aller bien plus vite. 
Mais la méthode utilisée présente 
l'avantage d’être la plus simple. 

Liste de EXP.EXEC 

K=10"100 

R=K*xK: R=163*R: U=13*K: 
7# : X=R/U : U=X+U : U=U/2 
R=3 14159 26535 89793 23846 
26433 83279 50288 41971 69399 
37510 58209 74944 59230 78164 


06286 20899 86280 34825 34211 
706794Ù : R=R/K 


X = 40*K:R=R -X 


S=K: I=0: U=K: 45#: I=I+1: 
U=UxR : U=U/K : U=U/ : S=S+U 

E=K: I=0: U=K: 70#: I=I+1: 
U=U/ : E=E+U 

40# : S=SxE : S=S/K 

9 
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Analyse de Magic Mailer 


Guy Lapautre 


Présentation du produit 


Magic Mailer (Autocourrier pour la 
version française) est un logiciel 
complémentaire à Magic Window 
(Autotexte), distribué par ARTSCI 
Inc. et diffusé en France par Ordina- 
teur Express. Nous emploierons dans 
la suite les noms français. 


La version que nous avons testée est 
théoriquement adaptée à l'Apple /’e. 
mais pas plus que la version 2 d'Au- 
totexte: elle n'utilise pas les possibili- 
tés nouvelles du clavier. C'est d'ail- 
leurs moins ennuyeux que pour 
Autotexte, car les mouvements de 
curseur sont beaucoup moins fré- 
quents. C'est pourtant dommage... 


Il convient de remarquer qu'Auto- 
courrier est exclusivement destiné à 
l'impression et ne permet de créer 
aucun texte ni fichier. L'utilisateur est 
censé utiliser Autotexte pour créer les 
textes proprement dits et les fichiers 
(bien qu'il soit possible, dans certai- 
nes conditions, d'utiliser des fichiers 
exogènes, en créant un ‘’moniteur‘). 


La présentation sous reliure est cor- 
recte, sans avoir le raffinement de 
nombreux logiciels pour Apple. La 
documentation est rédigée en an- 
glais. Une traduction en français est 
également fournie (avec quelques 
adaptations). Les auteurs préviennent 
qu'il s’agit d'une version provisoire. 
Nous y avons effectivement trouvé 
un certain nombre d'erreurs ou im- 
propriétés. Telle qu'elle est, elle a le 
mérite d'exister. 


Fonctionnalités de base 


Autocourrier est avant tout un 
’adresseur automatique”. Il permet 
d'adresser commodément des lettres- 
tvpe à toutes les personnes enregis- 
trées dans un fichier, ou à une sélec- 
tion d’entre elles. La sélection, s'il y 
a lieu, se fait à partir du contenu de 
certains champs, avec une très large 
combinaison de conditions logiques. 


Allant un peu plus loin, il est possible 
de faire figurer conditionnellement 
des mots, membres de phrases ou 
paragraphes permettant de personna- 
liser les lettres. 


Les données éditables sont de 4 

types : 

e des textes figurant dans la “lettre” 
créée sous Autotexte: 

e des données figurant dans le fi- 
chier associé: 

e des ‘constantes’. en 
une date; 


particulier 


Lee een nn 2192 T EE, DA au 
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e des données entrées au clavier au 
fur et à mesure de l'impression. 


En revanche,  Autocourrier ne 
comporte strictement aucune possibi- 
lité de calcul. ce qui interdit son em- 
ploi pour des opérations, même très 
simples, du type facturation ou édi- 
tion de devis. 


Le document à éditer 


Créé sous Autotexte. il se présente 
comme un document normal dans 
lequel on aurait opéré un certain 
nombre d'aménagements. 


Des zones sont réservées aux don- 
nées issues du fichier: elles sont repé- 
rées par des identifieurs que l'on re- 
trouve dans le “moniteur” du fichier. 
Ces identifieurs permettent en outre 
de sélectionner l'édition de portions 
de texte selon le contenu des 
champs du fichier associé, de jouer 
avec les majuscules et minuscules... 


Des symboles de justification peuvent 
être introduits dans le texte. si des 
zones de longueurs variables font 
que la justification systématique faite 
sous Autotexte ne puisse pas tou- 
jours convenir. 


Des symboles spéciaux peuvent être 
utilisés, par exemple pour les ensem- 
bles titre/nom/prénoms. ou la date. 


Ces options sont certes intéressantes. 
mais on aboutit assez vite à un texte 
ésotérique si on veut aller loin dans 
les possibilités du logiciel. 


Le fichier associé 


Qu'il soit créé sous Autotexte ou 
adapté à partir d’un fichier exogène, 
ce fichier comporte un premier enre- 
gistrement vide, qui indique sa struc- 
ture (en rappelant que les identifieurs 
utilisés sont ceux qu'on retrouve 
dans le texte). 


Bien entendu, rien n'interdit d'avoir 
un fichier comportant des rubriques 
non utilisées dans un texte, mais qui 
pourront l'être dans un autre {au 
même titre que le texte peut contenir 
des identifieurs non présents dans le 
fichier, et qui correspondront à des 
données à entrer au clavier). 


Le fichier, considéré comme un véri- 
table texte par Autocourrier, est par 
définition logé en mémoire centrale 
avec le texte lui-même. Il ne saurait 
donc être volumineux ! Cette limita- 
tion en rend l'emploi difficile pour de 
grosses applications professionnelles. 
Il existe toutefois un palliatif, avec 
l'utilisation d'une forme de chaînage. 





Signalons par ailleurs qu'on peut fort 
bien travailler sans fichier. en rentrant 
au clavier les données pour lesquel- 
les des identifieurs ont été placés 
dans le texte, ce qui est une solution 
séduisante pour des applications de 
petit volume, en permettant une per- 
sonnalisation de lettres à peu de 
frais, au niveau d'applications ‘per- 
sonnelles/professionnelles”. 


Utilisations 


Deux options de base amènent à 
quatre modes d'exploitation : 


® en continu ou cas par cas: 
e tout le fichier ou une sélection. 


Dans la pratique. deux d'entre elles 
sont particulièrement utiles : 


e en continu avec sélection {si on 
peut exprimer la sélection sous 
forme de critères logiques): 

e cas par cas et tout le fichier (per- 
mettant une sélection à l'examen 
de chaque enregistrement). 


Voilà un des points forts d'Autocour- 
rier, d'autant plus que les possibilités 
de sélection logique sont très éten- 
dues et, comme le disent d'ailleurs 
les auteurs de la documentation. 
“plus simples à mettre en oeuvre 
qu'à expliquer” (un effort pourrait 
cependant être fait pour clarifier les 
explications...). 


En résumé 


Autocourrier est un honnête système 
d'adressage automatique, dont deux 
points forts sont les larges possibilités 
de sélection de rubriques et'ou de 
paragraphes, et un système très 
complet de sélection dans le fichier 
associé. 


On regrettera principalement un cer- 
tain ésotérisme des textes si on utilise 
beaucoup d'options. ainsi que l'ab- 
sence complète de fonctions de cal- 
cul. Enfin, comme dans le cas d'Au- 
tocourrier, il est dommage que les 
auteurs n'aient pas pris en compte 
les possibilités accrues offertes par le 
clavier de l'Apple /’e. C] 
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Puisque nous n'avons pas été sub- 
mergés par un courrier nous intimant 
l'ordre de mettre fin sur le champ à 
cette série, nous la poursuivrons sans 
plus attendre par l'examen de nou- 
velles instructions choisies dans le ré- 
pertoire du langage assembleur. 


Les instructions de 
comparaison 


Elles jouent en assembleur le même 
rôle fondamental qu'en Basic, en 
permettant d'orienter le programme 
vers différents traitements selon le ré- 
sultat de tests effectués sur des varia- 
bles caractéristiques. 

On ne peut toutefois comparer direc- 
tement deux variables quelconques, 
par exemple le contenu de l'adresse 
$32 avec celui de l'adresse $303, ni 
une variable quelconque à une va- 
leur donnée, par exemple le contenu 
de l'adresse $18 et la valeur #$A0. 


En fait la comparaison ‘stricto 
sensu” n'est possible qu'entre l’un 
des registres du microprocesseur (ac- 
cumulateur, registre X ou registre Y) 
et ‘autre chose” (variable ou cons- 
tante). 

Il faut cependant noter que certaines 
instructions agissant sur une case-mé- 
moire, sans lien direct avec une véri- 
table comparaison, peuvent donner 
lieu à des tests significatifs par le biais 
de ce que nous avions appelé ‘le 
dernier résultat”, dans l’article précé- 
dent, lors de l'examen des instruc- 
tions BEQ et BNE. Nous en trouve- 
rons d’ailleurs un exemple plus loin. 


L'assembleur se distingue en outre 
du Basic en ce que l'opération de 
comparaison est réalisée séparément 
du test effectué sur son résultat. 
Ainsi, alors que l’on fait “IF A=B 
THEN...” en Basic, on écrirait en as- 
sembleur une séquence du type: 
“Comparer À et B” puis "Si le résul- 
tat de la comparaison est l'égalité 
alors...”. Le microprocesseur soustrait 
en fait B de À (mais sans changer la 
valeur de A), et positionne le ‘’der- 
nier résultat” en conséquence; le test 
porte donc en définitive sur la valeur 
de ce ‘dernier résultat”. 

Pour ce qui est des tests autorisés, 
nous ne retiendrons pour l'instant 
que ceux qui ont déjà été évoqués 
dans l'article précédent, à savoir 
l'égalité (testée par BEQ, soit ‘’der- 
nier résultat’ — (0) et la différence 
(testée par BNE, soit ‘dernier résul- 
tat” <> (0). Nous traiterons des 
autres possibilités dans un prochain 
article, dans lequel sera précisée la 
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nature réelle de notre fameux ‘der- 
nier résultat”. 


Comparaison avec l’accumula- 
teur 


Le code ’mnémonique” de l'instruc- 
tion est CMP, ce qui suffit pour indi- 
quer que l’un des termes de la 
comparaison est l'accumulateur. Le 
second terme dépend de ce qui suit 
CMP. 


On peut ainsi comparer à l’accumu- 
lateur soit une valeur donnée, soit le 
contenu d’une adresse. Dans cette 
seconde hypothèse, tous les modes 
d'adressage sont autorisés pour défi- 
nir l'adresse concernée. Vous trouve- 
rez ci-après la liste des syntaxes pos- 
sibles pour l'instruction CMP et les 
codes hexadécimaux correspondants 
(ADS désigne une étiquette symboli- 
que affectée à l'adresse dans le pro- 
gramme en assembleur). 


e CMP valeur = CMP #$NN = C9 
NN (exemple : C9 AO) 


e CMP adresse en page zéro = 
CMP ADS = CMP $aa = C5 aa 


e CMP adresse quelconque = CMP 
ADS = CMP $faaaa = CD octet 
bas/octet haut (exemple: CMP 
$90FF = CD FF 90) 


e CMP ‘adresse page zéro',X = 
CMP ADS,X = CMP $aa.X = D5 
adresse 

e CMP ADS.X = CMP $aaaa X — 
DD octet bas/octet haut 


e CMP ADS.Y = CMP faaaa.YŸ = 
D9 octet bas/octet haut 


e CMP (ADS,X) = CMP ($aa.X) = 
C1 adresse 


e CMP (ADS.Y) = CMP ($aa).Y = 
D1 adresse 


Notez bien que le contenu de l’accu- 
mulateur n'est pas affecté par l'opé- 
ration de comparaison, ce qui auto- 
rise les comparaisons en chaîne, 
telles que : 


CMP #5$80 
BEQ ETIQUETTE1 
CMP #5$8D 
BEQ ETIQUETTE2 


Comparaison avec le registre X 


Le code mnémonique est CPX. 

Là encore, il est possible de compa- 
rer X avec une valeur ou le contenu 
d'une adresse, mais seul l’adressage 
direct non indexé est autorisé. 

Le contenu de X demeure inchangé, 
ce qui permet également les compa- 
raisons en chaîne. 


Initiation à l’assembleur (2) 


Gérard Michel 


e CPX valeur = CPX #S$NN = EO 
NN (par exemple, EO 04) 


e CPX adresse page zéro = CPX 
ADS = CPX $aa = E4 adresse 


e CPX adresse quelconque = CPX 
ADS = CPX faaaa = EC octet 
bas/octet haut 


Comparaison avec le registre Y 


Le code mnémonique est CPY. 
Mêmes remarques générales que 
pour CPX. 


e CPY valeur = CPY #$NN = CO 
NN 


e CPY adresse page zéro = CPY 
ADS = CPY $aa = C4 adresse 


e CPY adresse quelconque = CPY 
ADS = CPY $faaaa = CC octet 
bas/octet haut 


Augmenter ou diminuer 
le contenu d’une adresse 
INC 


Cette instruction permet d'augmenter 
de 1 le contenu de l'adresse donnée 
après INC et correspondrait à 
"A=A+1" en Basic. Elle agit directe- 
ment sur l'adresse concernée, sans 
qu'il soit nécessaire de passer par 
l'intermédiaire d’un registre. 


Une adresse correspondant à un 
octet, son contenu ne peut prendre 
qu'une valeur comprise entre $0 et 
$FF (0 à 255 en décimal). Ainsi, si 
l'adresse ADR contient $FF et que 
vous faites "INC ADR”, vous trouve- 
rez O dans ADR (de même que 
9+1=0 si on ne compte que sur un 
chiffre !). 


De plus, notre fameux ‘dernier résul- 
tat” tient compte de la valeur de 
l'adresse après son traitement par 
INC: ïil devient nul si l'adresse 
contient O0 (comme dans le cas ci- 
dessus) et sera différent de O dans 
tous les autres cas. On peut donc ef- 
fectuer des tests significatifs par BNE 
et un en sortie d’une instruction 
INC. 


Ceci est particulièrement utile lorsque 
lon veut manipuler l’adresse-base 
d'un adressage indirect indexé par Y, 
ou, de manière générale, une valeur 
supérieure à 255 et qui occupe donc 
deux octets. Supposons ainsi que 
l'on ait à incrémenter de 1 en 1 une 
valeur stockée aux adresses $18 
(octet bas) et $19 (octet haut). La sé- 
quence d'instructions à utiliser serait : 
Ins.1 INC $18 

Ins.2 BNE Ins.4 

Ins.3 INC $19 











Ins.4 

On augmente l'octet bas de 1: si le 
résultat n'est pas nul, on saute à la 
suite du programme, sinon on aug- 
mente l’octet haut de 1. Si l'on arrive 
à Ins.l avec "0418" dans $18-$19, 
on aura ‘0518 en arrivant à Ins.4, 
mais si l’on arrive avec ‘FF18” on 
aura 0019” après être passé par les 
deux INC. 


L'adressage indirect ne peut être uti- 
lisé avec INC. 


e INC adresse page zéro — INC 
ADS = INC $aa = E6 adresse 


e INC adresse quelconque = INC 
ADS = INC $faaaa = EE octet 
bas/octet haut 


e INC ‘adresse page zéro”,X = INC 
ADS,X = INC $aax = F6 
adresse 


e INC ‘adresse quelconque”,X 
INC ADS,X = INC $faaaa,X = 
octet bas/octet haut 


DEC 


Comme on pouvait légitimement s'y 
attendre, DEC permet de diminuer 
de 1 le contenu d'une adresse. Là 
encore, le ‘dernier résultat” évolue 
en fonction du contenu de l'adresse 
après DEC, mais on ne peut l'utiliser 
aussi facilement qu'avec INC pour la 
manipulation de valeurs sur deux 
octets, puisque l’octet haut doit dimi- 
nuer lorsque l'octet bas vaut $FF et 
non lorsqu'il vaut O (de même que 
l'on ne change de dizaine que lors- 
que le chiffre des unités tombe à 9 et 
non à Ü). 

En reprenant notre. exemple précé- 
dent, la séquence d'instructions à uti- 
liser avec DEC serait : 

Ins.1 DEC $18 

Ins.2 LDA $18 

Ins.3 CMP #5$FF 

Ins.4 BNE Ins.6 

Ins.5 DEC $19 

Ins.6 … 


(on aurait pu également utiliser les 
registres X ou Ÿ en lieu et place de 
l'accumulateur) 


e DEC adresse page zéro = DEC 
ADS = DEC $aa = C6 adresse 

e DEC adresse quelconque = DEC 
ADS = DEC $aaaa = CE octet 
bas/octet haut 

e DEC ‘adresse page zéro” X = 
DEC ADS,X = DEC $aa,X = D6 
adresse 

e DEC ‘adresse quelconque”,X 
DEC ADS,X = DEC faaaa,X 
DE octet bas/octet haut 


FE 


HI 


Saut inconditionnel : 
JMP 


Les instructions BEQ et BNE, main- 
tenant bien connues de tous, provo- 
quent un branchement à un endroit 


donné du programme si le résultat 
du test effectué sur le ‘’dernier résul- 
tat”’ répond à leur attente (respective- 
ment égal à O et différent de 0). De 
plus, nous avons vu que le branche- 
ment se fait en fonction d'un dépla- 
cement et non directement sur une 
adresse que l’on indiquerait derrière 
BEQ ou BNE. On se “branche” 10 
octets plus bas, ou encore 48 octets 
plus haut, si la condition est satisfaite. 


L'instruction JMP, en revanche, pro- 
voque un saut inconditionnel” à 
l'adresse indiquée à sa suite; elle se 
rapproche en cela de l'instruction 
GOTO du Basic. 

Ainsi, "JMP $FDEO” (ou JMP ADR 
si ADR a été définie comme étiquette 
pour $FDEO) provoquera un saut à 
l'adresse $FDEO dès que sera ren- 
contré le code de JMP. 

JMP diffère de JSR comme GOTO 
de GOSUB : un RTS ne ramènerait 
pas à l'instruction qui suit JMP mais 
à celle qui suit le dernier JSR effec- 
tué dont on ne serait pas encore re- 
venu. 


Il est possible d'utiliser JMP avec 
l'adressage indirect: le saut se fait 
alors à l'adresse contenue dans 
l'adresse indiquée après JMP. 


e JMP adresse absolu = JMP ADS 


= JMP $faaaa — 4C  octet 
bas/octet haut 
e JMP adresse indirect — JMP 


(ADS) = JMP ($aaaa) = 6C octet 
bas/octet haut 


La pile du 
microprocesseur 


Lorsque le microprocesseur rencon- 
tre une instruction JSR , il doit stocker 
quelque part l'adresse du point de 
retour à laquelle ramènera le RTS de 
fin de la sous-routine. Il dispose pour 
cela d'un silo” bien à lui, baptisé 
pile”. En simplifiant, on peut dire 
que l'adresse de retour est posée sur 
le sommet de la pile et que le pro- 
cesseur vient l’y reprendre lorsqu'il 
rencontre un RTS. 


Considérons par exemple les instruc- 
tions suivantes : 


Adresse 0 JSR Adresse 2 
Adresse 1 Suite du programme 
Adresse 2 JSR Adresse 4 
Adresse 3 RTS 
Adresse 4 JSR Adresse 6 
Adresse 5 RTS 
Adresse 6 LDA $F0 

TS 


Après le ‘JSR Adresse 6”, la pile 
contiendra dans l’ordre : 

Adresse 5 

Adresse 3 

Adresse 1 

Le RTS qui suit "Adresse 6” ramè- 
nera donc à ‘Adresse 5”, dont le 
RTS ramènera alogs à ‘Adresse 3” 
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qui provoquera finalement le retour à 
Adresse 1”. La pile est de type 
dernier entré - premier sorti”: une 
nouvelle donnée à stocker est tou- 
jours posée sur le dessus et, chaque 
fois qu'il doit récupérer une informa- 
tion stockée dans la pile, le proces- 
seur prend toujours celle qui se 
trouve au sommet. 


Le programmeur peut également uti- 
liser cette pile pour des stockages 
temporaires. En particulier, deux ins- 
tructions permettent d'empiler et de 
dépiler l'’accumulateur : 


e PHA (code 48): dépose le 
contenu de l'accumulateur au 
sommet de la pile 


e PLA {code 68): transfère l'octet 
qui se trouve au sommet de la pile 
dans l’accumulateur. 


Cela limite le nombre d'adresses à 
utiliser pour une sauvegarde momen- 
tanée d'information, dans le cas par 
exemple où l’on veut sauvegarder le 
contenu de certaines adresses avant 
l'appel d’une sous-routine qui utilise 
et modifie ce contenu, puis récupérer 
les valeurs initiales au retour de la 
sous-routine. De même si l'on doit 
calculer la nouvelle adresse-base 
d'un adressage indirect post-indexé 
par Ÿ en ajoutant à l'ancienne 
adresse une valeur obtenue juste- 
ment par adressage post-indexé sur 
la base de cette ancienne adresse (le 
principe consiste alors à mettre dans 
l'accumulateur l'octet bas de 
l'adresse, lui ajouter la donnée obte- 
nue avec la valeur adéquate de Y, 
empiler l'accumulateur, charger en- 
suite l'accumulateur avec l'octet haut 
de l'adresse, lui ajouter la donnée 
obtenue avec la seconde valeur adé- 
quate de Y, stocker le résultat dans 
l'octet haut de l'adresse, puis dépiler 
dans l’accumulateur et stocker ce 
dernier dans l'octet bas de l'adresse - 
ce que l'on ne pouvait faire dès le 
début puisque cela aurait modifié 
l'adresse-base avant que l'on ait ré- 
cupéré la valeur correcte à ajouter à 
l'octet haut, d’où incohérence des ré- 
sultats). 


Lorsque l’on utilise la pile pour sto- 
cker des données, il convient de se 
rappeler que, pour le bon fonction- 
nement du système, tout ce qui a pu 
être déposé sur une information doit 
être retiré avant la récupération à 
bon escient de celle-ci. Le petit pro- 
gramme suivant, par exemple, 
conduirait à des résultats peu confor- 
mes aux espérances du program- 
meur : 


LDA $18 
PHA ‘ 
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En effet, l'accumulateur est empilé, 
puis le "JSR SR” provoque le dépôt 
au sommet de la pile de l'adresse de 
retour. Dans la sous-routine SR, PLA 
transfère dans l'’accumulateur l'octet 
qui se trouve au sommet de la pile, 
soit l'un des deux octets de l'adresse 
de retour, puis le RTS entraînera un 
branchement sur une ‘’pseudo” 
adresse de retour composée de l'un 
des octets de l'adresse véritable et de 
la valeur empilée par PHA avant 
l'appel de la sous-routine. Il y à peu 
de chances pour que cette pseudo” 
adresse soit la même que celle de 
l'instruction suivant ‘JSR SR” et, à 
moins que cela ne soit délibérément 
voulu, vous risquez quelques surpri- 
ses. 


Exemples d’application 


Nous vous proposons trois petits pro- 
grammes d'illustration, sans grand in- 
térêt pratique il est vrai, mais qui of- 
frent tous l'avantage de rendre 
visibles les résultats de leur exécu- 
tion. 


Exemple 1 


Le programme Basic remplit l'écran 
avec des caractères quelconques 
avant d'appeler la routine en langage 
machine. Cette dernière attend une 
saisie au clavier de la forme 
"/C1/C2/RETURN” (par exemple : 
/AIT/) et remplace ensuite tous les 
caractères C1 affichés par des carac- 


tères C2 (par exemple tous les À par 
des T). 


Analvsons donc en détail le pro- 
gramme en assembleur, source de la 
routine machine, en rappelant tout 
d'abord que ORG est une ”directive” 
de l’assembleur (ici LISA 15) don- 
nant l'adresse à partir de laquelle 
doit se faire l'assemblage, tandis que 
EQU et EPZ sont deux directives 
permettant d’affecter une étiquette 
symbolique à une adresse (EPZ si 
l'adresse est en page zéro et EQU 
dans le cas contraire). 


Ligne 2: $FC22 est l'adresse de la 


Exemple 1 : source assembleur 


0300 1 

0300 2  VTAB 
0300 3 COUT 
0300 4 GET 
0300 5  BASCAL 
0300 6 CLR 
0300 7  ADB 
0300 8 H 
0300 3 V 
0300 10 Ci 
0300 11 C2 
0300 A917 12 SO 
0302 8525 13 
Pom's n° 12 


routine du moniteur qui exécute 
l'équivalent du VTAB de l'Applesoft, 
en fonction de la valeur trouvée à 
l'adresse $25 (V), qui doit donc 
contenir la position verticale du cur- 
seur souhaitée. 

Ligne 3: $FDED est l'adresse de la 
routine qui fait exécuter le sous-pro- 
gramme de sortie de caractères. 
Ligne 4: $FDOC est l'adresse de la 
routine qui fait exécuter le sous-pro- 
gramme de saisie de caractères. 
Ligne 5: $FBCI1 est l'adresse de la 
routine qui calcule l'adresse-base 
d'une ligne d'écran dont le numéro 
(0 à #$17) lui est donné dans l’accu- 
mulateur (voir article précédent). 
Ligne 6: $FC9C est l'adresse de la 
routine qui efface une ligne à partir 
de la position du curseur jusqu'à la 
fin de la ligne (c'est la routine appe- 
lée par un CALL —868 en Besic). 
Ligne 7 : $28-$29 contient l'adresse- 
base de la ligne calculée par $FBC1. 
Ligne 8: $24 est l'adresse dans la- 
quelle doit être stockée la position 
horizontale du curseur. 

Ligne 10 : nous mettrons à l'adresse 
$6 le code-écran du caractère à rem- 
placer. 

Ligne 11: $7 contiendra pour sa 
part le code-écran du caractère de 
remplacement. 

Lignes 12 à 14: on déplace le cur- 
seur à la ligne numéro $17 (équiva- 
lent à VTAB 24). 

Lignes 15 à 17: on se place au 
début de la ligne #$17 et on l’efface. 
Lignes 18 et 19 : on se repositionne 
au début de la ligne. 

Ligne 20: demande la frappe d'un 
caractère au clavier. Le code-écran 
du caractère sera dans l'accumula- 
teur au retour de GET. 

Ligne 21: #$AF est le code-écran 
de ‘/”. On veut donc savoir si le ca- 
ractère tapé est ‘/”. 

Ligne 22: si ce n'est pas le cas. la 
demande est réitérée. 

Ligne 23 : le caractère est bien ” 
on l'affiche à l'écran. 

Ligne 24 : on en demande un autre. 
Ligne 25: #$8D est le code-écran 


de RETURN: notre caractère est-il 
un RETURN ? 

0304 2022FC 

0307 A9O00 
ORG $300 0303 8524 
EQU $SFC22 030B 209CFC 
EQU SFDED 030E A9OO 
EQU $SFDOC 0310 8524 
EQU SFBC1 0312 200CFD 
EQU SFCSC 0315 CSAF 
EPZ $28 0317 DOFS 
EPZ $24 0319 20EDFD 
EPZ $25 031C 200CFD 
EPZ $6 031F C98D 
EPZ S7 0321 FO13 
LDA #$17 0323 20OEDFD 
STA V 0326 A624 


Lignes 26 et 27: si oui, on saute à 
S2, sinon on l'affiche. 

Lignes 28 à 31 : on charge le registre 
X avec la position horizontale du cur- 
seur (H} et on le compare à la valeur 
2. Si X vaut 2, en effet, notre carac- 
tère doit être celui qu'il faut rempla- 
cer (H vaut 0 avant le premier GET, 
puis 1 après le COUT de ”/”, puis 2 
après le COUT du premier carac- 
tère). Dans ce cas, on saute à S10 
où le caractère est stocké dans C1 
avant le retour à la demande de 
frappe au clavier. 

Lignes 31 et 32: X est différent de 
2. il s'agit donc du caractère de rem- 
placement que l'on stocke dans C2 
avant retour à la saisie. 

Lignes 35 à 37 : pour que la syntaxe 
soit respectée. H doit être à 5 lors de 
la frappe du RETURN (on a affiché 5 
caractères aux positions 0 à 4). Si tel 
n'est pas le cas. le RETURN est re- 
fusé. 

Lignes 38 à 39: on va examiner le 
contenu de toutes les lignes d'écran 
en commençant par la première (0). 
Ligne 40: calcul de l'adresse-base 
d'une ligne. 

Ligne 41: on commence à la pre- 
mière colonne de chaque ligne. 

Ligne 42 : on charge l'accumulateur 
avec le caractère situé dans la co- 
lonne Y de la ligne dont l'adresse- 
base est contenue dans ADB. 

Lignes 43 et 44: on le compare à 
CI et, s’il lui est identique, on arrive 
à la ligne 45. On saute à S3 dans le 
cas contraire. 

Lignes 45 et 46: on remplace C1 


par C2. 

Lignes 47 à 49: Y=Y+1. La der- 
nière colonne porte le numéro 
#$27 : si Y est différent de #$28 on 
examine le caractère suivant dans la 
même ligne. Si Y vaut #$28, la der- 
nière colonne a été traitée et on 
passe à la ligne suivante. 

Ligne 50 : V=V+I. 

Lignes 51 à 54: si V est différent de 
#$18, il reste des lignes à examiner 
et on retourne en S5. Sinon, on re- 
vient au début de la routine pour de- 
mander d'autres caractères (on ne 
peut sortir que par RESET). 


14 JSR VTAB 
15 LDA #0 
16 STA H 

17 JSR CLR 
18 LDA #0 
19 STA H 

20 S1 JSR GET 
21 CMP #$SAF 
22 BNE Si 
23 JSR COUT 
24 S11 JSR GET 
25 CMP #$8D 
26 BEQ 52 
27 JSR COUT 
28 LDX H 








25 


26 


0328 EO02 29 
032A FOOS 30 
032C 8507 31 
032E 4C1203 32 
0331 8506 33 S10 
0333 4C1203 34 
0336 A624 35 S2 
0338 EOOS 36 
033A DOEO 37 
033C A900 38 
033E 8525 39 
0340 20C1FB 40 SS 
0343 AO00 a1 
0345 B128 42 S4 
0347 C506 43 
0349 DO04 44 
034B AS507 45 
034D 3128 46 
034F C8 47 S3 
0350 CO28 48 
0352 DOF1 49 
0354 E625 50 
0356 AS25 51 
0358 C918 S2 
O3SA DOE4 93 
035C 4C0003 54 


CPX #2 Exemple 1 : récapitulation 
BEQ S10 0300- A9 17 85 25 20 22 FC A9 
STA C2 0308- 00 85 24 20 9C FC A3 O0 
JMP S1 0310- 85 24 20 OC FD CS AF DO 
STA C1 0318- F9 20 ED FD 20 OC FD C3 
JMP S1 0320- 8D FO 13 20 ED FD A6 24 
LDX H 0328- EO O2 FO 05 85 07 4C 12 
CPX #5 0330- 03 85 06 4C 12 O3 A6 24 
BNE S11 0338- EO 05 DO EO A9 00 85 25 
LDA #0 0340- 20 C1 FB AO O0 B1 28 C5 
STA V 0348- 06 DO 04 A5 07 91 28 C8 
JSR BASCAL 0350- CO 28 DO F1 E6 25 A5 25 
LDY #0 0358- CS 18 DO E4 4C O0 03 
ue 7. os Exemple 1 : programme Basic 
BNE 53 S TEXT 
LDA C2 10 D$ = CHRS (4): PRINT DS$"BLOAD 
SPA: LADES INI2.0BJ": HOME : PRINT "LE T 
, EXTE QUI SUIT N’EST DESTINE Q 
INY U’A REMPLIR L'ECRAN POUR AVOI 
CPY #S28 R DES CARACTERES": 
BNE S4 20 PRINT “A MODIFIER POUR LA ROUT 
INC V INE EN LANGAGE-MACHINE...": PRINT 
LDA V 
CMP #$S18 30 FOR I = 1 TO 350:C$S = CHRS (3 
BNE S5 2 + INT € RND (1) »* 59)): PRINT 
JMP SO CS" ‘“:: NEXT : CALL 768 


a ————— eZ À 


Exemple 2 


Le programme est très court, mais 
plus ambitieux” que le précédent 
(mais oui!). Il s'agit de modifier le 
sous-programme de sortie de carac- 
tères afin de rendre plus souple le 
mélange de textes affichés en mode 
normal et en mode inverse (pour évi- 
ter justement l'usage répété des ins- 
tructions NORMAL et INVERSE). 


Les adresses $36 et $37 (54-55 en 
décimal) contiennent l'adresse du 
sous-programme de sortie de carac- 
tères utilisé par le système. Au début 
du programme Applesoft d'illustra- 
tion, nous y plaçons donc l'adresse 
de notre routine ($300 soit octet bas 
= 0 et octet haut = $3 = 3). Le 
CALL 1002 est utilisé pour rendre ce 
changement effectif en le faisant 
prendre en compte par le DOS (voir 
à ce sujet les explications détaillées 
données par Olivier Herz dans le 
courrier des lecteurs du numéro 11 
de Pom's). 


Le but à atteindre est de remplacer 
INVERSE par ‘"Control-[” {que nous 
noterons CTRL-I}) et NORMAL par 
CTRL-N, afin de pouvoir taper une 
instruction telle que : 

PRINT "CTRL- ICECI EST UNCTRL- 
N EXEMPLE” 


Exemple 2 : source assembleur 


0300 
0300 
0302 
0304 
0306 


Cc989 
DOOS 
A93F 
8532 


UBONR 


et de voir s'afficher CECI EST UN 
en inverse et EXEMPLE en normal 
(CTRL:-I et CTRL-N seront bien sûr 
invisibles” dans l'instruction affichée 
à l'écran). 

Voyons maintenant comment la rou- 
tine y parvient, sachant que le carac- 
tère à ‘sortir’ lui arrive contenu dans 
l'accumulateur. 

Lignes 2 et 3: #$89 est le code- 
écran de CTRL-L Si le caractère 
n'est pas CTRL-I, on saute à SI. 
Lignes 4 à 6: l'adresse $32 contient 
un ‘drapeau qui indique au sys- 
tème quel mode d'affichage vidéo 
utiliser. L'affichage est normal si $32 
contient #$FF, inverse pour #$3F et 
clignotant pour #$7F (en fait, la va- 
leur de $32 est utilisée pour modifier 
les codes-écran en fonction de l'affi- 
chage souhaité). Après avoir rencon- 
tré un CTRL-I, on met donc l'affi- 
chage en mode inverse, et l'on sort 
de la routine sans rien afficher pour 
l'instant. 

Lignes 7 et 8: #$8E est le code- 
écran de CTRL-N. Si l'accumulateur 
ne contient pas CTRL-N, on saute à 
S2 


Lignes 9 à 11 : après avoir rencontré 
CTRL-N, on remet l'affichage en 
mode normal et l'on ressort de la 
routine. 


0308 60 
0309 C98E 
030B DOOS 
ORG 5300 030D ASFF 
CMP #589 030F 8532 
BNE S1 0311 60 
LDA #S3F 0312 20FOFD 
STA $532 0315 60 


Lignes 12 et 13 : $FDFO est l'adresse 
du sous-programme ‘standard” de 
sortie de caractères. Vous aurez re- 
marqué que l'on n'utilise pas cette 
fois $FDED comme dans le pro- 
gramme précédent. En effet, $SFDED 
fait exécuter le sous-programme de 
sortie, par un JMP à l'adresse conte- 
nue dans $36-$37. En situation nor- 
male, cette adresse ramènerait à 
$FDFO ($FDED étant alors pratique- 
ment équivalent à S$FDFO), mais 
comme nous avons modifié le 
contenu de $36-$37, utiliser $FDED 
dans notre routine reviendrait finale- 
ment à “JMP $300”, d'où retour au 
début de la routine et boucle infinie. 
Si l'accumulateur ne contient ni 
CTRL ni CTRL-N, on affiche donc 
le caractère correspondant, sachant 
que cet affichage tiendra compte de 
la valeur contenue dans $32, puis on 
sort de la routine. 


Le retour à la routine standard de 
sortie de caractères peut se faire par 
RESET. Par ailleurs, vous pourrez 
constater que si notre routine est ac- 
tive, le LIST d'un programme Apple- 
soft contenant des parties de texte in- 
cluses entre CTRL-I et CTRL-N 
provoque également l'affichage de 
celles-ci en inverse dans les lignes de 
programme. 


6 RTS 

fi ST CMP #S$S8E 
8 BNE S2 

3 LDA #SFF 
10 STA $32 
11 RTS 
12 S2 JSR SFDFO 
13 RTS 


Exemple 2 : récapitulation 


0300- C9 89 DO 05 AS 3F 85 32 
0308- 60 C9 8E DO O5 A9 FF 85 


0310- 32 60 20 FO FD 60 


Exemple 2 : programme Basic 


10 PRINT CHRS (4)'"BLOAD INI3.0BJ 
“": POKE 54,0: POKE 55,3: CALL 


1002 


20 HOME : PRINT ‘* 


Exemple 3 


Après avoir modifié le sous-pro- 
gramme de sortie de caractères, 
pourquoi ne pas essayer de faire de 
même avec le sous-programme d'en- 
trée ? 

Cette fois, c'est aux adresses $38 et 
$39 (56 et 57 en décimal) qu'il faut 
stocker l'adresse de notre routine 
d'entrée avant d'exécuter un CALL 
1002. 


La routine affichera en inverse sur la 
dernière ligne de l'écran les caractè- 
res tapés, qui s'afficheront ensuite à 
là position du curseur dans les condi- 
tions habituelles. Si on tape RE- 
TURN ou si 40 caractères ont été af- 
fichés sur la dernière ligne, celle-ci 
s'efface et la sortie en inverse re- 
prend à la première colonne. 

Ce mode d'affichage double ne sera 
toutefois actif que lorsqu'on aura 
tapé CTRL:-A, et il le restera jusqu'à 
la frappe de CTRL-B ou RESET (re- 
tour à la routine standard dans ce 
dernier cas). 


Exemple 3 : source assembleur 


0300 1 
0300 201BFD 2 SO 
0303 C381 3 
0305 DO14 ä 
0307 AOO1 5 
0303 8406 6 
030B 2058FC 7 
O30E E624 8 
0310 A200 9 
0312 ASDD 10 
0314 8D0004 11 
0317 ASAO 12 
03193 DOES 13 
031B C982 14 Si 
031D DO33 15 
031F AOOO 16 
0321 8406 17 
0323 202D03 18 
0326 2022FC 19 
0323 ASAO 20 
032B DOD3 21 
032D AS525 22 Soi 
032F 8508 23 
0331 A917 24 
0333 8525 25 
0335 2022FC 26 
Pom's n° 12 


STION 1 
ZS: PRINT 
"QUESTION 2 : 


30 INPUT 
z$ 
40 PRINT : 


50 


INPUT 
TE QUESTION ? 
REM LES MESSAGES 
"QUESTION 2" 
PETITE QUESTION 


“3: INPUT 2$: PRINT 
":2$: PRINT 


"ENCORE UNE PETI 
28 

"QUESTION 1" 
"ENCORE UNE 
7 “ SONT ENC 


ET 


ADRES PAR DES CTRL-I ET CTRL- 


UE N 


Nous vous laissons le soin d'analyser 
le programme, au moyen des rensei- 
gnements déjà donnés dans le cours 
de cet article et des ultimes précisions 
ci-après. Bon courage ! 


e $SFDIB est l'adresse du sous-pro- 
gramme standard de saisie de ca- 
ractères. Mêmes remarques pour 
$FDIB par rapport à $FDOC que 
pour $FDFO par rapport à 
$FDED. 

e Les adresses $6, $7 et $8 nous 
serviront de variables de travail. 

e #5$81 est le code-écran de CTRL- 
Â 


e $FC58 est l'adresse de la routine 
HOME 


e #$DD est le code-écran du cro- 
chet fermant (]) et $400 est 
l'adresse de la première colonne 
de la première ligne de l'écran. 

e #S$AO est le code-écran de ‘es- 
pace”, #$82 celui de CTRL-B et 
#$8D celui de RETURN. 

e On utilise la pile pour sauver la 
valeur contenue dans $24 (posi- 
tion horizontale du curseur) avant 


0338 A406 

033A FO04 
ORG $300 033C AS24 
JSR S$SFD1B 033E DOOD 
CMP #$81 0340 AS24 
BNE Si 0342 48 
LDY #1 0343 A9OO 
STY $6 0345 8524 
JSR SFCSE 0347 20SCFC 
INC $24 034A 68 
LDX #O 034B 8524 
LDA #SDD 034D ASO8 
STA $400 034F 8525 
LDA #SAO 03S1 60 
BNE SO 0352 A406 
CMP #S$S82 0354 DOO1 
BNE S2 0356 60 
LDY #0 0357 C98D 
STY $6 0333 DOOD 
JSR SO1 035B C606 
JSR $SFC22 03S5D 202D03 
LDA #SA0 0360 E606 
BNE SO 0362 2022FC 
LDA $25 0365 A98D 
STA $8 0367 60 
LDA #$17 0368 8507 
STA $25 036A 202D03 
JSR $FC22 036D AO3F 


l'appel à $FCOC (lignes 32-33) et 
avant l'appel à $FDFO (lignes 57- 
58) qui réclament ou entraînent 
une modification de cette valeur. 


e $21 (33 en décimal) contient la 


valeur de la largeur de l'écran. On 
l'augmente avant "JSR $FDF0” 
(ligne 60) et on la réduit ensuite 
afin que l'affichage de la dernière 
colonne de la dernière ligne ne 


provoque pas de ‘scroll” des 
autres lignes. 
La sous-routine SOI, interne au 


programme, réalise l'équivalent de 
VTAB 24 avec en sus effacement 
de la dernière ligne dans les cas 
suivants : affichage de 40 caractè- 
res, frappe de RETURN. frappe de 
CTRL-B. Elle rétablit les valeurs 
des positions horizontale et verti- 
cale du curseur dans les lignes 
“normales” avant de rendre la 
main au programme principal. 

Avant de sortir de la routine (ligne 
51 et ligne 68}, on remet dans 
l'accumulateur le code-écran du 
caractère saisi afin d'en permettre 
l'affichage par les voies normales. 


27 LDY S6 
28 BEQ SO2 
293 LDA S$24 
30 BNE 503 
31 SO02 LDA $24 
32 PHA 

33 LDA #0 
34 STA $24 
35 JSR SFC9C 
36 PLA 

37 STA $24 
38 503 LDA S8 
393 STA $25 
40 RTS 

41 S2 LDY S6 
42 BNE Sd 
43 RTS 

44 Sa CMP #S8D 
45 BNE 53 
46 DEC S6 
47 JSR SO1 
48 INC $6 
493 JSR $SFC22 
90 LDA #$8D 
91 RTS 

92 S3 STA S7 
53 JSR SO1 
54 LDY #S3F 


27 


| 


036F 8432 55 STY $32 0320- 00 84 
0371 AS524 56 LDA $24 0328- FC A9 
0373 48 57 PHA 0330- 08 A9 
0374 A507 58 LDA S7 0338- A4 06 
0376 E621 59 INC $21 0340- AS 24 
0378 20FOFD 60 JSR $FDFO 0348- 9C FC 
037B C621 61 DEC S21 0350- 25 60 
037D 68 62 PLA 0358- 8D DO 
037E 8524 63 STA $24 0360- E6 06 
0380 2022FC 64 JSR SFC22 0368- 85 07 
0383 AOFF 65 LDY #SFF 0370- 32 A5 
0385 8432 66 STY $32 0378- 20 FO 
0387 A507 67 LDA S7 0380- 20 22 
0389 60 68 RTS 0388- 07 60 
Exemple 3 : récapitulation 

0300- 20 1B FD CS 81 DO 14 AO 10 

0308- 01 84 06 20 58 FC E6 24 “… 


0310- A2 OO A9 DD 8D 00 O4 A9 
0318- AO DO ES C9 82 DO 33 AO 


Exemple 3 : programme Basic 


PRINT CHRS (4)'"BLOAD INI4.0BJ 
: POKE 56,0: POKE 57,3: CALL 
1002: POKE 6,0: TEXT : 
POKE 35,22 


HOME : 





Bien qu'il ait conservé le même nom 
depuis le 25 août 1980, le DOS 3.3 
a connu un certain nombre de modi- 
fications. En particulier, l'apparition 
de l'Apple //e en janvier 1983 a pro- 
voqué la modification du DOS (pour 
qu'il supporte la carte 80 colonnes) 
et une tentative (initialement infruc- 
tueuse) de remédier au bug de l'AP- 
PEND (voir ‘’Réparez votre AP- 
PEND” et ‘Les drames de 
l'APPEND” dans les Pom's 1 et 2): 
depuis novembre 1983, les disquet- 
tes MASTER fournies par Apple 
contiennent une version enfin corri- 
gée de ce bug. 


Je vous propose de modifier votre 
DOS de manière à le rendre plus 
agréable d'utilisation à l’aide d’un 
programme qui incorpore 6 patches : 
e la commande TDUMP, déjà parue 
dans le Pom's 10 page 71, rem- 
place CHAIN (syntaxe : TDUMP 
fichier [,S slot] [,D drive] [,V vo- 
lume]); POKE 48361,3 permet de 


Patch du DOS 3.3 


visualiser les fichiers à accès direct: 
POKE 48361 ,18 rétablit l’état nor- 
mal; 

e correction du bug du catalogue (la 

longueur d’un fichier est indiquée 

modulo 255); 

mise à jour du DOS pour la ver- 

sion //e, y compris la rectification 

de l'APPEND: 

e un patch permettant de sortir avec 
CTRL-Q du catalogue pendant la 
pause: 

e un patch pour afficher le nombre 
de secteurs libres après l'indication 
du volume; 

® un dernier patch qui place le cur- 
seur sur la commande en cas 
d'instruction erronée au DOS. 


Assurez-vous que votre DOS est 
standard avant d'exécuter ce pro- 


Yvan Koenig 


gramme, car il utilise certaines zones 
libres de la mémoire, très connues et 
éventuellement déjà employées. En 
cas de doute, bootez d'abord sur 
votre disquette MASTER. 


Attention ! Ces modifications sont in- 
compatibles avec la plupart des pro- 
grammes qui déplacent le DOS sur la 
carte langage. 


Ces modifications n’annulent pas la 
commande INIT,; il est donc possible 
d'initialiser des disquettes qui les 
contiendront en permanence. Dans 
ce cas, il est préférable de marquer 
sur l'étiquette qu'il s’agit d'un DOS 
3.3 ’patché”, sinon vous pourriez ne 
pas comprendre pourquoi certains 
programmes (qui utiliseraient les 
mêmes adresses) ne marchent plus. = 





1 REM KOENIG 22/2/84 
10 FLASH : 
93 REM TDUMP FILE,S6,D1,VO 


100 HEXS$ = “A893:54 44 55 4D DO NSD26:DE BC N BC S"': 
DF:20 8E FD 20 A3 A2 20 8C A6 FO 12 20 ED 179 

FD AD O CO 10 F3 8D 10 CO 20 1B FD C9 91 

GOSUB 300: CALL - 1 


DO ES 20 FC A2 60“: 
44 


1193 REM CATALOG > 255 SECTORS 


120 HEXS = “AE42:AO 2 AS BO 48 A5 44 D9 A4 B3 A5 190 HEXS = 
45 E9 O 90 10 85 45 AS 44 F9 A4 B3 85 44 
68 18 69 1 48 DO E5 68 NADAF:C BD AE B3 
GOSUB 300: CALL 


20 ED FD CA DO": 
129 REM MISE A JOUR IIE 


130 HEXS = “B33E:18 AD BF BS 8D EC BS 6D E6 B5 8 
D E6 BS AD CO BS5 8D ED B5 6D E4 BS 8D Ed 
BS 90 3 EE ES B5 60 © O": 


- 144 
133 REM BUG BIG APPEND 


140 HEXS = "BAGS:AE SF AA EO 1C FO 5 A2 O 8E 5D 
B6 60 AS FF 8D FB 4 8D C CO 8D E CO 4C 2F 
FB AD BD BS 8D E6 BS5 8D 


DITS RS amer perte 2 
ASE 


28 


PRINT “PATCH EN COURS": 


3 4C 7F B3 O O ©“: 
NORMAL 1S0 HEXS = “AG6GBB:20 69 BA NB684:84 BA NB6AA:BB N 


GOSUB 300: CALL - 144 


BFD6:20 76 BA 4C 44 B7 NB9FD:0 O O NB652: 


: CALL 


GOSUB 300: CALL 

REM CTRL-Q:SORTIE CATALOGUE 

180 HEXS = “AE2F:20 8E FD CE SD B3 DO A 20 8D B7 
FO FO NB78D:20 C FD C9 91 60“: 

— 144 


- 144 


GOSUB 300 


183 REM SECTEURS LIBRES 


— 144 
209 


GOSUB 300: CALL LL 
299 END 


300 HEXS = HEXS + " 
CHEXS) : 
13) + 128: 
EA BS BA 8E 9B B 


POKE S11 + I, 


"B6B3:20 48 F9 86 44 86 45 AO C8 18 B 
S F2 B3 FO E À SO FB 48 E6 44 DO 2 E6 45 
68 18 90 FO 88 DO ES 20 42 AE 4C 2F AE NA 
DC4:B3 B6*: 

REM CURSEUR SUR ERREUR 

210 HEXS = “AGFF:4C D9 B6 NB6D9:C6 25 C6 25 C6 2 

5 C6 25 20 22 FC 6C SE SD": 

- 144 


GOSUB 300: CALL - 144 


GOSUB 300: CA 


N D7D2G“*: FOR I = 1 TO LEN 
ASC ( MIDS CHEXS,I, 


NEXT : POKE 72,0: RETURN 
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Des tableaux de dimension variable 


Vous avez sans doute déjà constaté 
que l'Applesoft (comme la plupart 
des BASICs d'ailleurs) est particuliè- 
rement strict avec le dimensionne- 
ment des tableaux. Une instruction 
"DIM A$(20)", par exemple, ne peut 
être suivie d'une instruction ‘DIM 
A$(30)" sans que cela provoque 
l'émission d'un message d'erreur. 


Cette excessive rigueur ne va pas 
sans quelques inconvénients pour le 
programmeur : 


e Si un tableau doit comporter X 
variables volatiles”, ne servant 
que pour une petite partie du pro- 
gramme, et que l’on a besoin en- 
suite d'un tableau de même type 
mais de dimension Ÿ, il faut soit 
définir deux tableaux, soit en di- 
mensionner un seul à la plus 
grande des deux valeurs X et Y, 
mais toujours sans espoir de récu- 
pérer la place occupée par les ta- 
bleaux, même s'ils deviennent inu- 
tiles. 

e Si l'on doit sauvegarder provisoi- 
rement un tableau À dans un ta- 
bleau B, puis recharger ensuite les 
valeurs initiales dans À, la place 
occupée par B reste perdue. 

e Un tableau dont le nombre d'élé- 
ments évolue par nature (table de 
référence d'enregistrements sur 
disquette par exemple) doit être 
défini avec la plus grande dimen- 
sion prévue, même si elle n'est ef- 
fectivement jamais atteinte, ou 
seulement à l'issue de plusieurs 
mois de fonctionnement du pro- 
gramme. Là encore, la place per- 
due peut être considérable, et l’on 
pourrait évoquer d’autres problè- 
mes. 


La routine présentée ici vise à ré- 
duire le nombre de ces inconvé- 
nients. Elle s'appelle au moven de 
l'ampersand (&) et autorise deux 
types de manipulation : 


e Suppression pure et simple d'un 
tableau, pour en récupérer la 
place-mémoire et permettre un re- 
dimensionnement éventuel, sans 
affecter les autres tableaux ou va- 
riables. 

e Pour les tableaux à une seule di- 
mension, possibilité d'incrémenter 
la DIM de 1 lorsque l'on veut ra- 
jouter un élément (et ce autant de 
fois que nécessaire), et possibilité 
de la décrémenter d'autant lors- 
qu'on en supprime un. 
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M ON ON ON OX OX ù % 


DEB 


So 


S00 


S2 


RO 


R2 
R1 


S1 


S3 


S10 


Gérard Michel 


HOMO Ne D D Dé Dé 26 Dé DE DE D D DOM 9 De Dé 06 Dé dé Dé D D DE DE M 


MODIFICATION DE LA DIM DES 
TABLEAUX 


ASSEMBLEUR 


ORG 


(TAB2),Y 


#* 

Li 

3 

#* 

CODE = DIM.VAR.OBJ * 
* 

: LISA 1.5 * 

#* 

| + 


ON DD D DE DE D D DE D D D D De 6 DE DE DE De DE D De D D D DE 7 26 


:INITIALISE TAB2 A L’ADRESSE DE 
;DEBUT DE LA ZONE DES TABLEAUX 


; NOMBRE MAXIMUM D’OCTETS POUR 
;UN ELEMENT D’UN TABLEAU (REEL) 


;ON À DEJA LE CARAC. QUI SUIT & 
>; ACQUISITION CARAC. SUIVANT DU PROGRAMME 


3 DRAPEAU “FIN D’INSTRUCTION" 
: TABLEAU ALPHANUMERIQUE ? 


; TABLEAU ENTIER ? 
5 "4"? 


. te 
# 


31ERE LETTRE DU NOM DU TABLEAU EN L1 
;ET 2EME EVENTUELLE EN L2 


; DRAPEAU ‘NOMBRE D’OCTETS PAR ELEMENT" 
:L2=L2+$80 

3; A-T-ON UN ‘“+* OU UN “-‘" DERRIERE 

:LE CARACTERE QUE L’ON VIENT 

DE LIRE ? 


> NON CFIN D’INSTRUCTION) 
; OUI -> M.A.J. POINTEUR DE PROGRAMME 


"+" 7? 


;DRAPEAU ‘+ OÙ ‘“-" 


:SP RECHERCHE DANS ZONE DES TABLEAUX 


3L1=L1+$80 


èr 
+. 
+ 


REzTren. 


SISTARE: 
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Structure d’un tableau 
en mémoire 


Le pointeur de début de la zone des 
tableaux est donné par les adresses 
AE le pointeur de fin par $6D- 
6E. 
Quel que soit le type du tableau 
(chaîne de caractères, réel ou entier). 
sa représentation en mémoire débute 
toujours par les informations suivan- 
tes : 


e Deux octets correspondant aux 
deux lettres du nom du tableau 
(même si ce dernier n'en compte 
qu'une, deux octets sont utilisés). 

e Le nombre total d'octets occupés 
par le tableau, dans l'ordre poids 
faible / poids fort. 

e Le nombre de dimensions. 

e Pour chacune des dimensions, le 
nombre de ses éléments, dans 
l'ordre poids fort / poids faible. 


Chaque élément occupe ensuite 2 
octets s’il s'agit d'un tableau d'en- 
tiers, 3 s'il s'agit d’alphanumériques 
et 5 si ce sont des réels. 


Les lettres définissant le nom du ta- 
bleau permettent au système d'en re- 
connaître le type, et de distinguer par 
ailleurs A$ de À ou de A%. Par rap- 
port au code ASCII. mémorisé dans 
le programme, les noms mémorisés 
dans la zone des tableaux présentent 
les caractéristiques suivantes : 


e Tableau ‘entier’: le code de cha- 
cune des deux lettres est aug- 
menté de $80 (s'il n'y a qu'une 
lettre, le deuxième octet contient 
donc $80). "A%" serait codé C1 
80” et "BB%° donnerait C2 C2” 

® Tableau ‘’alphanumérique”: seul 
le code de la seconde lettre est 
augmenté de $80. "AS" serait 
codé 41 80” et "BB$” donnerait 
742 C2”. 

e Tableau ‘réel: les codes ne sont 
pas modifiés. A” serait codé ‘41 
00” et "BB" serait codé ‘42 42" 


La routine cherchera donc dans la 
zone des tableaux celui dont le nom 
lui est indiqué après "&”. 

S'il s'agit seulement de le supprimer, 
elle déplacera vers le bas tout ce qui 
suit la fin du tableau, c'est-à-dire les 
autres tableaux s’il y en a, du nom- 
bre d’octets occupés par le tableau 
concerné, qui lui même sera ainsi 
écrasé”. Ceci revient à effectuer un 
MOVE” avec pour point d'arrivée 
l'adresse du tableau et pour point de 
départ l'adresse du tableau suivant. 
Les données du tableau sont évi- 
demment perdues. 

Pour incrémenter ou décrémenter la 
dimension, la routine effectuera un 
“MOVE” vers le haut ou vers le bas, 
d'un nombre d’octets correspondant 
au type du tableau (2, 3 ou 5) et 
mettra à jour le nombre d'octets oc- 





S4 


S40 


ss 
550 


FIN1LDA 


STA 
LDA 
STA 
LDY 
JSR 
LDA 
SEC 
SBC 
STA 
LDA 
SBC 
STA 
LDX 
BNE 


FINOJSR 


FIN 
R3 


Ra 


R4O 


RTS 
JSR 
LDY 
LDA 
CMP 


S4 
1ERE LETTRE TROUVEE 
(TAB2),Y 


;: 2EME LETTRE TROUVEE 
; SP -> ADRESSE DU TABLEAU SUIVANT 


;:ON CONTINUE LA RECHERCHE 


(TAB2),Y ;ON AJOUTE À TAB2 LE NOMBRE 


:D’OCTETS OCCUPES PAR LE TABLEAU, CE QUI 


TAB2 
VP 


; DONNE L’ADRESSE DU TABLEAU SUIVANT 


(TAB2),Y 
TAB2+1 
vP2 


TAB2 
$42 
TAB2+1 
$43 


: DESTINATION DU MOVE" 


CTAB2),Y 
N1 :N1/N2 -> NBRE OCTETS SUPPRIMES 


(TAB2),Y 


:DEBUT DE LA ZONE A DEPLACER 


: FIN DE LA ZONE A DEPLACER 


; MOVE 


:M.A.J. POINTEUR “FIN ZONE TABLEAUX" 


;: ON EST DEJA EN FIN D’INSTRUCTION 
;>MISE EN FIN D’INSTRUCTION 


S10 
#4 


(TAB2),Y ;EST-CE BIEN UN TABLEAU A 1 DIM. 


: C’EST UN TABLEAU DE REELS 
Ni ; CALCUL NOMBRE OCTETS PAR ELEMENT 


C'EST UN “+" 

:M.A.J. NOMBRE D’ELEMENTS 
(TAB2),Y ;QUI DIMINUE DE 1 
#1 

CTAB2),Y 


(TAB2),Y 


:M.A4.J. NOMBRE OCTETS DU TABLEAU 


(TAB2),Y ;QUI DIMINUE DE N1 


N1 
CTAB2),Y 
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cupés ainsi que le nombre d'élé- 153 INY 
ments dans la dimension. 154 LDA CTAB2),Y 
; 155 SBC #0 
Mode d'utilisation 156 STA (TAB2),Y 
157 LDA VP 
Suppression 158 PHA 
: 159 LDA VP2 
La syntaxe générale est "& Nom du 160 PHA 
tableau”, par exemple: &Q%, 161 JSR 540 ; NOUVELLE ADRESSE DU TABLEAU SUIVANT 
&RR$, &TG... Si le nom comporte 162 STA 543 ; DESTINATION DU MOVE 
plus de deux lettres, il ne faut mettre 163 LDA VP 
derrière &” que les deux premières 164 STA 542 
et le type (&TA% pour TABLEAU% | 165 PLA 
par exemple). 166 STA $3D : DEBUT DE ZONE À DEPLACER (ANCIENNE 
0 ES TOME RE NE d 167 PLA ; ADRESSE DU TABLEAU SUIVANT) 
n peut utiliser des instructions du 168 STA 53C 
Wype : 169 JMP FIN1 
10 DIM A$(10,2), BB(25) : CY%{(0) 170 RS LDY #6 
= 2 171 LDA (TAB2),Y ;NBRE ELEMENTS AUGMENTE DE 1 
20 &A$ : &BB : &CY% 2. CLC : 
30 DIM A$(55), CY%(10,20) … . SR TA S 
Il est indispensable que le tableau ait 175 DEY 
été effectivement créé avant sa sup- RE “ess it 15e 
pression, soit Par une instruction 178 STA CTAB2) ,Y 
DIM. soit par l'affectation d'une va- 179 LDY #2 
leur à un élément d'indice inférieur à | 180 LDA (TAB2),Y ;NBRE OCTETS AUGMENTE DE N1 
10 (dimension par défaut). Sinon, le 181 CLC 
système s'embarque pour un voyage 182 ADC N1 
sans retour | 183 STA (TAB2),Y 
PURE . . 184 INY 
Modification de la dimension 185 LDA (TAB2),Y 
“5 186 ADC #0 
La syntaxe est "& Nom du tableau 187 STA CTAB2) ,Y 
+” pour ajouter un élément 188 LDA S6E 
(&AAS+, &CTH+ ….) et "& Nom | 189 STA L2 ; ANCIENNE FIN ZONE DES TABLEAUX 
Fe Et en enlever un | 190 STA N2 ; NOUVELLE FIN ZONE DES TABLEAUX 
—, — ….). 191 LDA $6D 
Comme précédemment, le tableau 192 STA L1 ; ANCIENNE FIN 
doit effectivement avoir été créé, 193 CLC 
d'une façon ou d’une autre, mais il 194 ADC N1 
doit en sus ne comporter qu'une Re a sa MÉELTE SN 
seule dimension pour que la routine 197 BCC R6 ! 
produise les résultats espérés. 198 INC $6E 
: gi : : 199 INC N2 
en on 
4 ÿ 201 R6O LDA (L1),Y  ;"“MOVE“ VERS LE HAUT 
aucun élément dans le tableau, mais 202 STA CN1),Y 
les 7 octets de définition (lettres...) 203 LDA L? 
seront toujours là. Ainsi, la ligne sui- | 204 CMP VP2 ;VP/VPZ -> ANCIENNE ADRESSE DEBUT 
vante provoquerait une erreur : 205 BNE R8 :DU TABLEAU SUIVANT QUI MARQUE LA 
10 DIM A(5) : FOR 1=5 TO O STEP | 265$ NS 0e Fe IN DEMEACEDNE A PERLAGER 
—1: &A-—: NEXT : DIM A(20) 208 SN 26 
Il suffit d'insérer ”’&A” entre le NEXT 2093 JMP FINO 
et la nouvelle instruction DIM pour 210 R8& DEC L1 
que tout se passe bien. Es us AE 
MP #5 
Il est en revanche parfaitement possi- 213 BNE R7 
ble d'écrire : 214 DEC L2 
10 DIM A(5): FOR1=5 TOO STEP | 255 R7 PO NI 
—1: &A-— : NEXT : FOR I=0 TO 5: 217 CNP #SFF 
ï 0 lité 219 DEC N2 
Le programme de démonstration listé 0 THAT REG 
ci-après présente de nombreux 221 DCM “INT 
exemples d'application. u 222 END 
Programme DIM.VAR.OBJ 9298- 00 DO 04 E6 1B DO 35 C9 
S2A0- 24 FO 11 C9 25 FO 33 C9 
927C- A4 6B 84 18 92A8- C8 FO 21 C9 CS FO 20 95 
9280- A4 6C 84 19 AO O5 84 O8 32B0- 06 E8 DO E2 E6 1D AS 07 
9288- A2 O0 86 07 86 1B 86 1C 92B8- 09 80 85 07 AO O1 B1 B8 
9290- 86 1D 86 09 FO 193 20 B1 92C0- 20 BA OO FO OF 20 B1 O0 
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92C8- C9 C8 DO 03 4C 50 93 E6 
92D0- 1C 4C 50 93 20 ES5 92 4C 
32D8- 11 93 E6 1D AS 06 09 80 
92E0- 85 06 4C B4 92 AO O0 B1 
92E8- 18 CS 06 DO O7 C8 B1 18 
92FO0- CS 07 FO.1C 20 O0 93 85 
92F8- 19 AS 1A 85 18 4C E5 92 
9300- AO 02 B1 18 18 65 18 85 
9308- 1A C8 B1 18 65 19 85 1E 
9310- 60 AS 18 85 42 AS 19 85 
9318- 43 C8 B1 18 85 08 C8 B1 
9320- 18 85 09 20 O0 93 A5 1A 
9328- 85 3C AS 1E 85 3D A5 6D 
9330- 85 3E AS 6E 85 3F AO O0 
9338- 20 2C FE AS 6D 38 ES 08 
9340- 85 6D AS 6E ES5 09 85 6E 
9348- A6 1B DO 03 20 B1 OO 60 EU se 

93S0- 20 ES 92 AO O4 B1 18 C9 33B0- 88 B1 18 63 O0 91 18 AO 






\ e : : 9 à 
À est-il entier : 











9358- O1 DO F1 20 O0 93 A5 1D 93B8- 02 B1 18 18 65 08 91 18 
— 9360- FO 09 C6 08 AS 08 38 E5 93C0- C8 B1 18 69 00 91 18 A5 
”  9368- 1D 85 08 A5 1C FO 38 AO 93C8- 6E 85 07 85 O9 A5 6D 85 
9370- 06 B1 18 38 E9 O1 91 18 393D0- 06 18 65 08 85 6D 85 08 
9378- 88 B1 18 E9 O0 91 18 AO 93D8- 90 O4 E6 6E E6 O3 AO O0 
9380- 02 B1 18 38 ES5 O8 91 18 93E0- B1 06 91 08 A5 07 CS 1E 
9388- C8 B1 18 E9 OO 91 18 AS 93E8- DO OS AS 06 C5 1A DO O3 
9390- 1A 48 AS 1E 48 20 O0 93 93FO0- 4C 4C 93 C6 06 A5 06 C9 
9398- 85 43 A5 14 85 42 68 85 93F8- FF DO 02 C6 07 C6 O8 A5 
93A0- 3D 68 85 3C 4C 2E 93 AO 9400- 08 CS FF DO DB C6 093 4C 
93A8- 06 B1 18 18 69 01 91 18 9408- EO 93 
1 REM DEMO DIM VARIABLE MENT NO “Z" ‘“:: INPUT AAS(Z): 
2 REM s===s=s=zs==2=2==s=2=2z GOTO 80 
200 PRINT : PRINT : FOR I = © TO 
S HIMEM: 37499 Z: PRINT AAS(I)D: NEXT : GET Z 
10 PRINT CHRS (4)'"BLOAD DIM.VAR. $: PRINT : PRINT 
OBJ'"*: POKE 1013,76: POKE 1014 210 & CC%: DIM CC%x(0O) 
7 # 16 + 12: POKE 1015,9 * 1 220 FOR I = 1 TO 20: & B + :B(I) = 
6 + 2 2 # I: & CC%X + :CC%X(I) = 10 * 
20 DIM B(5),TS(1),CCx(2,3),TTS(10 1: NEXT : FOR I = O TO 20: PRINT 
) B(I)D,CC%*(I): NEXT : GET Z$: PRINT 
30 FOR I = O TO S:B(I) = 1000 * I : PRINT 
: NEXT : FOR I = O TO 2: FOR 230 & TTS: FOR I = O TO 4:TTS(I) = 
J = O TO 3:CCX%x(I,J) = I * J: NEXT "NOUVEAU TTS “ + STRS (I): NEXT 
: NEXT : FOR I = O TO 10:TTS( 
1) = "TABLEAU TTS “ + STRS ( 240 FOR I = 20 TO 10 STEP - 1: & 
1): NEXT B - : & CC% - : NEXT : FOR I = 
40 TS$(0) = “PRE-CREE O":T$#(1) = “P O TO S: PRINT B(I),CC%x(I): NEXT 
RE-CREE 1“: FOR I = 2 TO 20: & 
TS + :TS(I) = “"CREE NO “ + STRS 250 & AAS: DIM AAS(O) 
CI): PRINT FRE (O0): NEXT : FOR 260 FOR I = 1 TO 450: & AAS + :AA 
1 = O TO 20: PRINT TS#(I): NEXT S(I) = “AAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
90 GET 2$: PRINT : FOR I = 20 TO AAAAAAAAAAAAAS *“ + STRS (I): 
6 STEP - 1: & TS - : PRINT FRE PRINT AAS(I)D" ‘“:: PRINT FRE 
(CO): NEXT : FOR I = O TO 5: PRINT (O0): PRINT : NEXT 
TS(I): NEXT 270 FOR I = 450 TO 1 STEP - 1: & 
60 GET ZS: PRINT : PRINT : & B: DIM AAS - : PRINT FRE (O0): NEXT 
AAS(O) ,B(O) : PRINT : FOR I = O TO 9: PRINT 
70 INPUT ‘“1ER ELEMENT ‘“;:AAS(O) B(I),CC%(I): NEXT 
80 INPUT “UN AUTRE : "“;2S: IF 2S$S = 280 FOR I = O TO 4: PRINT TTS(I): 
"N'" THEN 200 NEXT 


90 Z2 = 2 + 1: & AAS + : PRINT ‘"ELE 


OR IEE ST Dibabwpeses-te etre BE 
ASS 
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Faisant suite à l'article de Guy Ma- 
thieu, relatif à l'ergonomie des pro- 
grammes, paru dans Pom's 6, voici 
une routine en langage machine qui 
viendra en aide aux programmeurs 
soucieux de créer des logiciels ami- 
caux. J'attaque ici un problème qui 
n'a guère été soulevé dans l'article 
précité : le traitement des erreurs. 

Le premier type d'erreur, le fameux 
“bug” qui ne surviendra qu'après 
quelques mois d'utilisation du pro- 
gramme, sera facilement éliminé 
grâce au programme d'analyse syn- 
taxique d'Olivier Herz (cf. Pom's 6). 
Par contre, il est difficile de prendre 
en compte, et surtout de prévoir, les 
erreurs de manipulation éventuelles 
de la part de l'utilisateur. Je ne 
connais rien de plus désagréable que 
de voir un programme stopper son 
exécution en plein travail par un ”l/O 
ERROR”, un "DISK FULL” ou que 
Sais-je encore... 


C'est pour éviter ce genre de désa- 
gréments que l'Applesoft met à votre 
disposition l'instruction  ’ONERR 
GOTO”, qui permet de ‘piéger” 
toutes les erreurs du DOS, celles du 
BASIC, et même la frappe au clavier 
du fameux CTRL-C. Mais le 
’ONERR GOTO” souffre de deux 
défauts majeurs : 


e il n'empêche pas l'arrêt du pro- 
gramme par un RESET volontaire 
ou accidentel: 

® si un trop grand nombre d'erreurs 
successives est traité, le désordre 
qui apparaît au niveau du poin- 
teur de pile provoque un blocage 
du système (voir page 136 du ma- 
nuel Applesoft). 


Pour ces raisons, il m'a semblé utile 
de créer une routine de ’ONERR 
GOTO” étendu, traitant ces deux 
problèmes. 


Principes généraux 


L'Apple dispose d'une routine de 
RESET appelée par l'intermédiaire 
d'un vecteur , baptisé SOFTEV, situé 
en page 3 aux adresses $3F2 et 
$3F3 (1010-1011). En modifiant le 
contenu de ces deux adresses, on 
peut envoyer le RESET à n'importe 
quelle adresse au sein de la mémoire 
de l'ordinateur: Pour signifier à l'Ap- 
ple de ne pas effectuer un ‘départ à 
froid”, il faut en outre stocker le ré- 
sultat du ‘ou exclusif” entre le 
contenu de $3F3 et la valeur $A5 en 
$3F4, ce que la routine du moniteur 
SETPWRC ($FB6F) fera pour nous. 
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0 DO NO O1 BB Ni 


KO OK OK OK OK OK OK OK OK XX OK 


& ONERR GOTO 


Dimitri Auer 


APPLE TOOL KIT EDITOR ASSEMBLER 
DE DE DE HE DEN DE DE DE DE DE DE DE DE DE DE HE DE DE DE DE DE DE DE DE DE DE DEEE NEN 
# 

& ONERR GOTO 


TRAITEMENT D'ERREUR APPLESOFT 
AVEC EXTENSION AU ’RESET”‘ 


COPYRIGHT 1983 
DIMITRI AUER 


XOK OK OK OK OK OX XX 


XX RH HENH HN NOHE NE ME MENE DE EDEN DEEE DE EX EEE KE 


EFFECTUE LES MEMES OPERATIONS QUE 

LE CLASSIQUE ONERR GOTO DE L’APPLESOFT 
MAIS S’APPLIQUE AUSSI À L'’ENFONCEMENT 
DE LA TOUCHE ’RESET‘. 


SYNTAXE : & ONERR GOTO (NUM. LIGNE) 


Mu ne ue ne ns ne ee us ue 


ORG #$300 


CONSTANTES 


es eu es en 


ONERR EQU $AS 
GOTO EQU $4B 
RESTORE EQU $ÂE 


TOKEN DE ONERR 
TOKEN DE GOTO 


sai we 


VARIABLES 


ADRESSE VERS LAQUELLE POINTE L'APPEL 
POINTEUR DANS LA LIGNE COURANTE APPL 
NUMERO DE LA LIGNE EN EXECUTION 
POINTEURS ONERR 

FLAG D’ACTIVITE DE ONERR 

SOFTEU EQU $3F2 VECTEUR DU RESET 

ERRSTK EQU  $DF VALEUR DU POINTEUR DE PILE 

AVANT L'APPARITION DE L'ERREUR. 


m 
Z 
2 
T 
| 
LU 
m 
© 
(= 
# 
nm 
Bb 


us Au ee 08 we 07 


CHRGET EQU #$00Bi 
SNERR EQU $DEC9 
SETPWRC EQU $FBéF 
DATA EQU $D995 


CAPTE LE CARACTERE SUIVANT DANS LA L 
AFFICHE ‘SYNTAX ERROR’ 

REAJUSTAGE DES VECTEURS DE RESET 
DEPLACE TXTPTR EN FIN D’INSTRUCTION 


un 0 es en 


MISE EN PLACE DES VECTEURS & 


LDA  H<START 
STA EXTLOC+2 


RTS 
5 
; PROGRAMME PRINCIPAL APPELE 
3 PAR CHAQUE EMPLOI DE L'AMPERSAND & 
START CMP  HONERR ; TOKEN ONERR ? 
BEG TEST2 
CMP  HRESTORE ; DEUXIEME POSSIBILITE ? 
BNE  ERR ; SI NON ERREUR 
BEG STACK ; TRAITE & RESTORE 


Dre peer const té Dé RE ET EEE TVR 
FRERES ERA 


ÉLUS PS Er abbé comte mets 
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L'astuce utilisée ici consiste à revec- 
toriser le RESET vers la routine de 
traitement du ‘SYNTAX ERROR‘. 
Chaque RESET sera alors interprété 
comme une erreur de syntaxe et 
pourra être capté aisément par 
ONERR GOTO. 


Le programme 


Il est évident que cela pourrait être 
effectué directement à partir du pro- 
gramme Applesoft par une série de 
POKES et un CALL. Mais comme il 
sera bon, de toutes façons. d'utiliser 
la routine d'erreur préconisée par le 
manuel Applesoft, autant inclure le 
tout dans un petit utilitaire. 

Pour conserver la souplesse du 
BASIC. nous utiliserons l'ampersand 
(&} pour appeler la routine en lan- 
gage machine. 


La première partie de cette routine 
met en place les vecteurs nécessaires 
à & en $3F5-$3F6 (lignes 58 à 64), 
À chaque appel de &. on passera 
ensuite directement à la seconde par- 
tie (ligne 671). 


Descriptif du programme 
principal 


e Lignes 67-77 : teste la syntaxe de 
l'appel soit & ONERR GOTO. soit 
& RESTORE. Si ONERR GOTO. 
branchement à OK. Si RESTORE. 
saut à la deuxième partie (traite- 
ment de pile}. En cas d'échec des 
deux comparaisons. saut à la rou- 
tine qui affichera un ‘SYNTAX 
ERROR‘® et stoppera le pro- 
gramme. 

Lignes 81-99: activation de 
ONERR GOTO et mise en place 
des nouveaux vecteurs de RESET. 
Sortie via la routine DATA qui 
place le pointeur de ligne Apple- 
soft en fin d'instruction (recherche 
un :'’ouun 0° de fin de ligne). 
e Lignes 111-119 : réajuste le poin- 


75 TEST2 JSR CHRGET 5; INSTRUCTION SUIVANTE 


76 CMP HKGOTO ; TOKEN GOTO ? 
?7 BEGQ OK 
78 ; 
79 ERR UMP SNERR 3; ENVOIE LE MESSAGE D'ERREUR 
80 ; 
81 OK JSR CHRGET ; AVANCE TXTPTR 
82 LDA TXTPTR 
83 STA  ERRPTR 
84 LDA  TXTPTR+1 
85 STA  ERRPTR+1 
86 LDA  CURLIN 
87 STA  ERRPTR+2 
88 LDA  CURLIN+I 
&9 STA  ERRPTR+3 
90 ; 
71 LDA  #$e0 
92? STA  ERRFLAG ; ACTIVATION DE ONERRGOTO 
93 ;: 
ÿ4 LDA  H>SNERR 3 REVECTORISATION 
95 STA  SOFTEV ; 
Fé LDA  H<SNERR 3 RESET 
?7 STA  SOFTEU+1 
ge JSR  SETPWRC 
99 JMP. DATA ; FIN 
100 ; 
101"; 
102 ; DEUXIEME PARTIE: & RESTORE 
103 ; REAJUSTE LE POINTEUR DE PILE 
104 ; AFIN D’EUVITER LE ‘PLANTAGE”’ 
105 ; DU SYSTEME PAR SUITE D'ERREURS 
10é ; REPFETEES. 
107 ; 
108 ; À UTILISER DANS LA SECTION DE TRAITEMENT 
109 ; DE L'’ERREUR PAR UN & RESTORE 
j10 ; 
111 STACK PLA 5; SAUVEGARDE 
112 TAY ; DES REGISTRES 
113 PLA 
114 LDX  ERRSTK SREAJUSTAGE OÙ POINTEUR 
115 TXS ; DE PILE 
iié PH 3; REGENERAT I ON 
EL? TYA + DES 
116 FHâ 3; REGISTRES 
119 JMP DATA 35FIN ET RETOUR AU BASIC 
teur de pile à la valeur précédant tement d'erreur afin de reconnecter 
l'apparition de l'erreur (voir ma- le DOS après un éventuel RESET. 
a es Le petit programme de démonstra- 
PR pe | tion listé ci-après met en évidence le 
Remarque: les utilisateurs de dis- mode d'utilisation de cette routine. 
quettes auront à inclure un CALL & 


1002 au sein de leur routine de trai- 





Récapitulation 


*300 .35D 


0300- À7 4C 8D F5 03 A9 


0308- Fé 03 À9 03 8D 


0310- C7 ÀS F0 0é C9 AE 


0318- F0 31 20 B1 00 
0320- 03 4C CS DE 20 
0328- B8 85 F4 A5 B9 
0330- 75 85 Fé À5 76 
0338- 80 85 D8 A9 C9 
0340- A9 DE SD F3 03 
0348- 4C 95 D9 48 A8 
0350- 94 48 98 48 4C 
0358- DA Eé 01 4C 33 


10 REM 
ÉKXKLKEEELESILEEREEREKELKÉREXE XX 
L 2 x 
# & ONERR DEMO # 
# CC) 1983 DIMITRI AUER % 
+ # 
10 8D XX EX 6 36 6 6 6 6 6 6 6 6 Xe 6 6 6 EE XX € 
03 60 20 REM 
DO 9 30 REM  FLOT HARGEMENT DE LA ROU 
AB F0 TINE 
00 A5 40 PRINT CHR$ (4) "BRUNAMPER.ONER 
F5 45 R.0BJ0O" 
F7 A9 50 REM ACTIVATION DE ONERR 


100 &  ONERR GOTO 1000 


F2 03 200 REM 

6F FB EKKEKEKHKELERÉERLKEREEHELERÉEREXXX 

ñé DF x É 

D? DO * PROGRAMME PRINCIPAL x 
x #* 


Pom's n° 12 


* x 320 GOTO 260: REM BOUCLAGE 
HE DE DEN NE EE DEEE DE DE DE DE DEEE EE EX 330 REM 
210 TEXT : HOME 999 REM 
215 INVERSE : FOR I = 1 TO 40 x 23 DRE RE DE DE DE HE DE DE DE DE DE DE DE DE DE DE DE EDEN EN EN 
5: PRINT * “;: NEXT NORMAL * x 
220 VTAB 2: HTAB 13: PRINT “ & ON * ROUTINE DE CAPTAGE DE x 
ERR DEMO * # L'ERREUR x 
240 PRINT PRINT : PRINT “LIST20 * si 
00,2010": PRINT : LIST 2000,2 HXKKKHKKHEKEEXREREEEEEXXXXHRXXHX 
010 
250 VTAB 21: INVERSE : PRINT "ESS 1000 & RESTORE : REM REMET À JO 
AYEZ DE STOPPER LE PROGRAMME UR L POINTEUR DE PILE 
PAR CTRL-C OÙ RESET. ENFG 1005 CÂLL 1002: REM ET EN PLACE L 
NCEZ LA TOUCHE ‘S° POUR EXECU ES VECTEURS 
TER LA LIGNE 2010. 1006 REM DU DOS EN CAS DE RESET 
3 1007 HOME VTAB 12: NORMAL 
255 NORMAL 1008 FOR I = 1 TO 20:X = PEEK (4 
260 POKE - 16368,0 9200): NEXT 
270 VTAB 18: HTAB 15: PRINT "PAUS 1010 PRINT "ERREUR!!!" 
E..." 1020 PRINT : PRINT "“CODE:" PEEK ( 
280 FOR PA = 1 TO 1000: NEXT PA 222) 
290 VTAB 18: HTAB 15: PRINT “ 1030 PRINT "LIGNE NO:" PEEK (218) 
s + 256 * PEEK (219) 
295 FOR I = 1 TO 10 1040 POKE - 14368,0 
300 X = PEEK ( - 16384) - 128 1050 PRINT : GET R$&: GOTO 200 
310 IF X = ASC ("S") THEN 2000: REM| 2000 REM EXEMPLE D'ERREUR 
PRODUIT L’ERREUR 2010 PRINT LOÂ$D : REM 
315 NEXT MOT RESERVE 


Lorsqu'un programme BASIC utilise 
un où plusieurs programmes en lan- 
gage machine, la méthode la plus 
courante consiste à charger ceux-ci 
dans la page 3. ou en fin de mé- 
moire vive, par des BLOAD. 

Cette méthode présente deux incon- 
vénients : 


1) perte de temps au moment du 
chargement en mémoire : 
2) perte de place sur la disquette. 


Incorporer le programme machine à 
la fin du programme BASIC est une 
autre méthode répandue. Il y a deux 
avantages. D'une part, le chargement 
se fait en une seule fois. donc gain 
de temps. D'autre part, la copie sur 
disquette ou cassette est plus simple. 
inconvénient . si l'on veut modifier le 
programme BASIC. il faut recom- 
mencer toute la procédure. 


Rajouter un programme machine à la 
fin d'un programme BASIC suppose 
l'exécution des opérations suivantes : 
1) charger le programme BASIC 

2) prévoir les modifications des 
adresses d'appel des sous-program- 
mes 
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Programme assembleur 
à la fin d’un programme BASIC 


3) chercher la fin du programme 
BASIC par un PRINT PEEK(175) + 
256*PEEK(176) 

4) charger le programme binaire à 
cette adresse 

5) modifier les adresses d'appel dans 
le programme BASIC. Attention. ceci 
ne doit pas modifier la longueur du 
programme BASIC. 

6) Positionner le pointeur de fin de 
programme à la fin du programme 
binaire. 

7) Sauver le programme (sous un 
autre nom par précaution). 


Bien que ces opérations soient par- 
faitement réalisables à la main. elles 
sont fastidieuses et une erreur est 
toujours possible. Il est donc plus sûr 
d'automatiser tout le processus 
comme nous vous le proposons ici. 


Le fichier INCLUSION 


Ce fichier EXECutable vous de- 
mande le nom du programme 
BASIC, sauvegarde ses pointeurs. 


modifie les adresses de chargement 
du BASIC et charge le programme 
APPEND-PROG à l'adresse $6000. 


Roland Jost 


APPEND-PROG 


Ce programme Applesoft, chargé par 
INCEUSION. vous demande le(s} 
nom({s) du où des programmes binai- 
res à utiliser. Taper RETURN s'il n'y 
en à plus. 

Après exécution de APPEND-PROG. 
il ne vous reste plus qu'à sauver 
votre programme BASIC. qui englo- 
bera les routines en langage ma- 
chine. 


Pour que l'opération se déroule nor- 
malement. il est nécessaire d'insérer 
dans les premières lignes de votre 
programme Applesoft une instruction 
du type : 


P1 = $S$6$66. P2 = FÉES : Pn 
= FFE 


P1....Pn étant les noms de vos sous- 
programmes binaires. Attention : les 
mots réservés du BASIC ne doivent 
pas être utilisés. 


Les sous-programmes devront être 
appelés par des CALL P1.. CALL 
Pn. 


Dans le cas d'une table de formes . 
utiliser une instruction telle que : 





RS ___ _* 
ELABES EM : 2 à 
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RER ES DES EENER LE ENT 


SHAPE = $$$$$: POKE 233, 
SHAPE } 256: POKE 232, SHAPE - 
PEEK(233) x 256 


Pour une bibliothèque de program- 
mes utilisant & (Ampersand), insé- 
rer : 


LIB = $$$$$: POKE 1013. 76: 
POKE 1015, LIB/256 : POKE 1014. 
LIB - PEEK(1015)x 256 


Si vos routines ne sont pas relogea- 
bles. reportez-vous à l'article de Phi- 
lippe François dans Pom's 7, ou 
faites les modifications nécessaires 
avant la sauvegarde du programme 
complet. 


Quelques détails 
EXEC INCLUSION 


HOME : INVERSE : PRINT "INCLU- 
SION DE PROGRAMMES ASSEM- 
BLEUR A LA FIN D'UN PRO- 


GRAMME  APPLESOFT NOR- 
MAL : PRINT 
POKE 1180: POKE 436990: 


INPUT NOM DU PROGRAMME 
APPLESOFT :":N$: POKE 436991 


Cette ligne mérite quelques explica- 
tions. L'adresse 118 ($76. baptisée 
CURLIN) contient $FF en mcde im- 
médiat. En mettant zéro, on trompe 
l'interpréteur. Ceci permet d'exécuter 
des commandes INPUT, GET en 
mode immédiat sans le fatidique ”IL- 
LEGAL DIRECT ERROR”". POKE 
43699.0 permet de déconnecter la 
commande EXEC. A la fin de l'ins- 
truction, un POKE 436991 rend la 
main au fichier EXEC. 

PRINT CHR$(4) "LOAD ” N$ 
POKE 26. PEEK(175): POKE 27. 
PEEK(176) 

on sauve l'adresse de fin de pro- 
gramme. 

POKE 103. 1: 
POKE 24576.0 
modifie l'adresse de chargement d’un 
programme APPLESOFT. 


RUN APPEND-PROG 


POKE 104 96: 


APPEND-PROG 


Le sous-programme en langage ma- 
chine implanté en page 3 permet. au 
terme de l'exécution, de redonner 
aux pointeurs Applesoft des valeurs 
standards. 


Pour tester la procédure , nous vous 
proposons d'utiliser le programme 
ESSAI-INCLUSION comme  pro- 
gramme  Applesoft. Les sous-pro- 
grammes nécessaires sont INV (inver- 
sion de chaînes de caractères) et 
STRING {affiche x fois une chaîne). 
Ils vous sont offerts ‘en prime” ! 


DR DRE RETE ET ETS ES 
eur 228 PONTS NET NT 
ABRIS 
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INV 


Certains BASICSs, ainsi que PLE . 
possèdent une fonction permettant 
l'inversion d'une chaîne de caractè- 
res. Le programme assembleur INV 
réalise cette opération sur une chaîne 
ayant au plus 127 caractères. 


Appel par: CALL 768.A$ (CALL 
768.nom de la chaîne) 


STRING 


Cette fonction existe dans certains 
BASICs. Elle permet d'afficher n fois 
la même chaîne de caractères. 


Programme INV 


0300- 20 BE DE J5SR SDEBE teste la virgule 
0303- 20 E3 DF JSR SDFE3 : recherche variable 
0306- 85 FA STA SFA : sauve les pointeurs 
0308- 84 FB STY SFB 

030A- AO O0 LDY #$00 

030C- B1 FA LDA (CSFAD,Y : 

O030E- 85 FC STA SEC : sauve la longueur 
0310- c8 INY : 

0311- Bi FA LDA (SFA) ,Y : 

0313- 48 PHA : 

0314- c8 INY : 

0315- Bi FA LDA (SFA) ,Y : 

0317- 85 FE STA SFE : sauve l’adresse 
0319- 68 PLA : 

031A- 85 FD STA SFD H 

031C- A4 FC LDY SFC : on balaye la chaine 
031E- 88 DEY : 

031F- B1 FD LDA (SED),Y : 

0321- 48 PHA L 

0322- 88 DEY : 

0323- 10 FA BPL $031F : fin de chaine ? 
0325- A4 FC LDY SFC : on reconstitue 
0327- 88 DEY la chaine en 

0328- 68 PLA : ricuperant la pile. 
0329- 91 FD STA (CSED),Y 

032B- 88 DEY 

032C- 10 FA BPL $0328 

032E- 60 RTS 

Programme STRING 

0300- 20 BE DE JSR SDEBE : teste la virgule 

0303- 20 F8 E6 JSR SE6F8 : (value la formule 
0306- 86 06 STX $06 : sauvegarde de la valeur 
0308- 20 BE DE JSR SDEBE : teste la virgule 
030B- C3 22 CMP #$22 : est-ce un “ 

030D- DO 05 BNE $0314 : 

030F- 20 81 DE JSR $SDE81 : saisie de la chaine 
0312- DO OA BNE SO31E : 

0314- 20 E3 DF JSR SDFES : recherche la variable 
0317- 20 6C DD JSR SDD6EC : ce doit “tre une chaine 
031A- 85 AO STA SAO ; 

031C- 84 A1 STY sAî : 

031E- 20 3D DB JSR $SDB3D : affiche la chaine 
0321- ce 06 DEC 506 : 

0323- DO F9 BNE $SO3S1E : on recommence ? 

0325- 20 B7 O0 JSR $00B7 : 

0328- C9 3B CMP #S$S3B : teste le point-virgule 
0324A- DO O4 BNE $0330 : 

032C- 20 Bi O0 JSR $S00B1 : 

032F- 60 RTS h 

0330- ac 8E FD JMP SFD8E : retour chariot 
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Appel : 


CALL 768,n,A$ 


CALL 768.n.' chaîne” 


REMARQUES IMPORTANTES 


1 - les noms de vos sous-program- 


au maximum en combinant les lignes 
et en supprimant les remarques. Si 
nécessaire . n'utilisez que la page 


CALL 768.n.A$: mes ne doivent pas se terminer par graphique 2. 

CALL 768 .n, chaîne”: un $. 

Le point virgule évite un retour cha- 2 - Attention aux pages graphiques. 

riot après l'affichage. Condensez votre programme BASIC E 





100 REM PROGRAMME APPEND 
101 REM Ss22====2222222: 
110 PRINT 
120 DEF FN PE(X) = PEEK (X) + 2 
96 *  PEEK (X + 1) 
130 DS = CHRS (4):GS = CHRS (7) 
140 AF = FN PE(26) 
145 FF = AF * (AF < = 2200) + 220 
O x CAF > 2200) 
150 ONERR GOTO 430 
160 GOSUB 250 
170 HOME : FOR I = O TO K: PRINT 
BSCID: NEXT I: PRINT : IF K = 
O THEN PRINT ‘“ EST'";: GOTO 1 
930 
180 PRINT ‘“SONT'': 
1930 PRINT ‘“ MAINTENANT INCLUS À V 
OTRE PROGRAMME BASIC. LES APP 
ELS (CCALL) DE VOTRE PRO 
GRAMME BASIC ONT ETE MIS A JO 
UR." 
200 PRINT : PRINT : PRINT “ VOUS 
POUVEZ LISTER VOTRE PROGRAMME 
ET LE SAUVER SOUS LE NOM 
QUI VOUS CONVIENT." 
210 DATA 169,1,133,103,169,8,13 
3,104,165,26,133,175,133,1085, 
165,27,133,176,133,106,96,0 
220 FOR I = O TO 21: READ DA: POKE 
768 + I,DA: NEXT I 
230 CALL 768 
240 END 
250 REM RECHERCHE DES SOUS-PROGR 
AMMES 
260 FOR I = 2048 TO FF:.IF PEEK 
CI) < > 208 THEN 400 
270 IF PEEK (I + 1) < > 36 OR PEEK 
(I + 2) < > 36 OR PEEK (I + 
3) < > 36 OR PEEK (I + 4) <« 
> 36 OR PEEK (I + 5) < > 3 
6 THEN 400 
280 FOR J = I - 1 TO I - 11 STEP 
- 1: IF PEEK (J) < 65 THEN 
K1 = J + 1:J = I - 11 
230 NEXT J 
300 BS = “": 
310 FOR N = K1 TO I - 1:B$ = BS + 
CHRS {( PEEK (N)): NEXT N 
340 REM CHARGEMENT DES SOUS-PROG 
RAMMES 
350 PRINT : PRINT BS$S* CHARGE À L 
* ADRESSE ‘AF 
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360 
270 


380 


390 


400 
410 
420 


430 


449 


100 
101 
110 
120 
130 
140 
150 
160 
170 


180 
1930 


200 
210 


220 
230 
240 


250 


260 


270 


PRINT DS'BLOAD 
Re(VS - Ré 
AFS = RIGHTS (" * +  STRS 
CAF),5): FOR L = 1 TO 5: POKE 
I + L, ASC ( MIDS (AFS,L,1)): 
NEXT L:I = I + 1 
LG = FN PE(43616):AF = AF + L 
G: POKE 27,AF / 256: POKE 26, 
AF - PEEK (27) *x 256:K = K + 
1 
NEXT I 
RETURN 
REM TRAITEMENT D'ERREURS 


“‘Bs" u A'"AF 


IF PEEK (222) = 6 THEN FLASH 
: PRINT G$;:GS$S"CE FICHIER N’EX 
ISTE PAS": NORMAL : GOTO 210 
FLASH : PRINT GS;GS"ERREUR D’ 
EXECUTION ‘: GOTO 210 


REM PROGRAMME DE TEST APPEND 


REM 
HOME 
INV = SSSSS:STRING = 
VS =  CHRS (91) + 
RING,20,VS; 
FOR J = 1 TO 19: HTAB 1: 
STRING,1,VS;: 
TRING,1,VS:: 
CALL STRING,20,VS 
POKE 32,4: POKE 33,33 
VTAB 3: INPUT “VOTRE PRENOM , 
SVP ‘“";AS 
CALL INV,AS 
VTAB 8: PRINT ‘MERCI ‘“:;: 
PRINT AS$: NORMAL 
FOR T = 1 TO 3000: 
PRINT PRINT ‘“"OH! 
I “;: INVERSE : 
PRINT : PRINT 
LES LETTRES" 
FOR T = 1 TO 3000: 
CALL INV,AS 
PRINT : PRINT “VOILA,C’EST R 
ENTRE DANS L’ORDRE ‘“ 
PRINT PRINT : HTAB 10: 
“AU REVOIR ‘“;: INVERSE : 
AS: NORMAL 
PRINT : HTAB 10: CALL STRING, 
10 + LEN (CAS),'"#" 
TEXT : VTAB 22 


S$Ssss 
“J"5 CALL ST 


CALL 
HTAB 39: CALL S 
NEXT J 


INVERSE 


NEXT 

EXCUSEZ MO 
PRINT AS: NORMAL 
"J'AI INVERSE 


NEXT 


PRINT 
PRINT 


| 


EX 
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Carte langage 
Carte 128 k ram 


Interface série 
Super série 


D | 


Crédit sous réserve 


(metro 














Computer 3 


3, rue Papillon 75009 Paris — Tél. 523.51.15 


BONJOUR LES PRIX !! 


550 Speech card 
1800 Carte horloge 


Carte 80 colonnes 750 Joystick 


650 Ventilateur 


1100 Contrôleur de drive auto switch 13/16 













Interface parallèle 420 Microdrive 3" 

Grappler + buffer 16 k 1500 Moniteur vert 12" 

Interface modem 2200 Disquettes 5” 1/4 par 1 boîte 
Carte Z 80 750 : F "HE boîtes 
Wildcard 650 " L " 10 boîtes 


AU-DESSUS, NOUS CONSULTER. 


Carte bleue et visa acceptées 


d'acceptation du dossier 


Poissonniére) 


NOS PRIX SONT F TTC 





390 
600 
200 
320 
450 

2500 
950 
180/boîte 
175/bôite 
170/boîte 








—— 








NOTRE RÉFÉREN 








PAR TELEPHONE 
ou 
DONNEZ-NOUS VOTRE DISQUETTE 


FR TRANSMETTEZ-NOUS VOS TEXTES 


Les textes de vos articles, catalogues, annuaires ou brochures 
saisis sur votre APPLE sont envoyés directement sur notre photocom- 


poseuse. 


Nous vous évitons ainsi, le coût et le temps de la saisie supplé- 
mentaire que nécessite le traitement traditionnel de la photocompo- 
sition avant l'impression des documents, si vous le désirez nous pou- 


vons également nous charger de l'impression et du brochage. 


CE... LA REVUE POM'S 


LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO-INFORMATIQUE 








TE ane 
ABS 
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Des trucs pour Apple Writer II et //e 


Mon propos dans cet article n’est pas 
de vous fournir un mode d'emploi 
d'Apple Writer II ou //e (il existe en 
effet une fonction Help avec "PO-?”, 
pomme ouverte et ’?” simultanés), 
mais de vous donner des trucs d’utili- 


sation indépendants les uns des 
autres. 
Azerty ou Qwerty ? 


Avec l'Apple //e, le choix entre le 
mode Azerty et le mode Qwerty n'est 
pas forcément évident. Quand on 
doit souvent taper des chiffres, il peut 
être préférable de taper en Quwerty 
(pour avoir les chiffres en minuscu- 
les) et d'utiliser les touches US per- 
mettant d'obtenir les caractères spé- 
ciaux français: les  accolades 
ouvrantes (6) et fermantes (è), l’arro- 
bas (à), la barre transversale inversée 
(ç), la barre verticale (ù) et le tilde 
(tréma). 


Le soulignement 


Le paramètre de souligné est par dé- 
faut le symbole ”’&”, ce qui est assez 
fâcheux, car on a facilement recours 
à ce symbole, d'où quelques souli- 
gnements inattendus. Avant d'impri- 
mer un texte, vérifiez donc qu'il ne 
comporte pas de ”’&” et modifiez le 
paramètre de souligné dans le cas 
contraire, en utilisant un caractère 
non employé dans votre fichier. 


Si votre imprimante ne possède pas 
de mode souligné, vous pouvez anni- 
hiler totalement l'option souligne- 
ment en entrant, une fois parvenu 
dans le mode de changement des 
paramètres d'impression (avec 
"CTRL-P ?”), la séquence PS” imé- 
diatement suivie de RETURN. 


Si votre imprimante possède un 
mode soulignement obtenu par des 
codes différents de ceux de l'impri- 
mante matricielle Apple, vous devrez 
entrer vous-même les séquences de 
début et fin de soulignement. Bien 
entendu, vous perdrez dans ce cas la 
justification pour les lignes où appa- 
raîtront ces symboles. 


La coupure des mots 


La touche CTRL-Z permet de bascu- 
ler entre la présentation des mots à 
l'écran, coupés ou non. L'intérêt de 
l'option coupure” réside dans le fait 
que l’on voit alors plus clairement s’il 
n'y à pas de RETURNSs intempestifs 
à l'intérieur des paragraphes. Inverse- 
ment, la ‘’non-coupure” rend le texte 
plus lisible, quoiqu'à cet égard les 
opinions des utilisateurs puissent dif- 
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férer. En faisant "CTRL-Q G”, on 
bascule entre l'affichage ou non des 
retours chariot. 


Il y a une autre raison pour choisir 
l’un de ces deux modes : le déplace- 
ment vertical du curseur ne s'effectue 
pas de la même manière pour cha- 
que mode. Ainsi, si l’on veut effec- 
tuer des corrections en fin de para- 
graphe, et en remontant dans le 
texte, il vaut mieux être en mode 
coupure”. Par contre, pour remon- 
ter le curseur verticalement sans dé- 
calage latéral, le mode ‘’non-cou- 
pure” est nécessaire. 


Le glossaire 


Vous n'utiliserez jamais trop souvent 
le glossaire. Si votre Apple Writer est 
un outil d'usage fréquent, vous pou- 
vez même avoir recours à plusieurs 
glossaires, chacun spécialisé pour 
une tâche précise (évitez cependant 
les confusions). On peut bien en- 
tendu mettre dans un glossaire un 
mot long tel que ‘’micro-ordinateur”, 
ou une formule de politesse comme 
Veuillez agréer, Monsieur, ..”. C’est 
ainsi que certaines lectrices recoivent 
parfois de ma part des lettres aux 
formules douteuses. 


Pour utiliser le glossaire avec l'Apple 
le, ne vous fatiquez pas à entrer 
"CTRL-G” suivi du caractère : il suf- 
fit de faire PO” (pomme ouverte) et 
le caractère simultanément. 


La meilleure façon de concevoir des 
glossaires spécifiques consiste proba- 
blement à créer un noyau de glos- 
saire, contenant par exemple tous les 
caractères de contrôle de l'impri- 
mante (qualité courrier, compressé, 
caractères étendus, ...), qui servira de 
point de départ aux glossaires spécifi- 
ques. 


On peut - ne nous en privons pas - 
utiliser des commandes de glossaire 
incorporant des caractères de 
contrôle ou des RETURNSs. 


Caractères de contrôle 
Avec l'imprimante matricielle Apple, 


un ’é” s'obtient avec la séquence ” 
CTRL-V CTRL-H CTRL-V e”, soit 
huit touches … L'idéal serait de créer 
cette séquence dans le glossaire, 
pour pouvoir l'appeler par exemple 
avec ‘’PO-e”. Malheureusement, le 
glossaire refuse, dans son mode de 
création normal, la séquence ”’CTRL- 
V CTRL-H CTRL-V”. Il faut alors 
sauvegarder le glossaire sur la dis- 
quette, puis le charger comme un fi- 
cher normal. On peut ensuite rentrer 
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la séquence de touches de la façon 
suivante :” CTRL-L CONTROLV 
(CONTROLV est un fichier qui se 
trouve sur la disquette Apple Writer 
le) CTRL-V CTRL-H CTRL-V 
CTRL-L CONTROLV e“. Le charge- 
ment de CONTROLV place simple- 
ment un caractère CTRL-V, matéria- 
lisé par un V en inverse, à la place 
du curseur, tandis que la séquence 
"CTRL-V CTRL-H CTRL-V” permet 
d'obtenir un CTRL-H (soit un H en 
inverse à l'écran). Il ne reste qu’à 
sauvegarder ce fichier glossaire modi- 
fié. 

D'ailleurs, lors de la création ou de la 
mise à jour d’un glossaire, il est à la 
fois plus rapide et plus sûr de procé- 
der ainsi que de passer par ”CTRL- 
G ?” à chaque item. 


Insertion de RETURNSs 


Un retour chariot est indiqué dans le 
glossaire par le symbole ”$” en 
Azerty, et ”]” en Qwerty. Ainsi, pour 
marquer le passage en mode 
compressé et le changement corres- 
pondant des marges avec mon 
Oki92, j'ai créé la commande de 
glossaire ’PO-c”, directement à partir 
de "CTRL-G?”, en entrant ‘’c 
CTRL-V CTRL-X CTRL-V & CTRL- 
V  CTRL-$ CTRL-V S$.mg10$.md 
121$.jt. CTRL-X annule le mode 
qualité courrier et CTRL-$ met en 
mode compressé. J'ai ajouté ici, pour 
faciliter la lecture, un blanc pour sé- 
parer les touches de contrôle, mais 
tout était contigu lors de la création 
de la commande. 


Fichiers tampons 


Plutôt que d'encombrer le glossaire 
avec des textes longs tels que formu- 
les de politesse, indication de chan- 
gement d'adresse, exposition des 
conditions de vente, …, il est préféra- 
ble de créer autant de petits fichiers 
tampons que l’on chargera, le mo- 
ment venu, avec un simple CTRL-L. 
En effet, le glossaire est limité à un 
total de 2048 caractères, même si 
l'on peut (voir la documentation du 
programme) chaîner des définitions 
du glossaire. 


Recherche de chaînes 


On se trompe parfois, lors de la re- 
cherche (et du remplacement) de 
chaînes en effectuant la recherche 
vers le haut alors qu'on souhaitait 
l'effectuer vers le bas, ou inverse- 
ment. Pour éviter ce type d'erreur, 
chaque fois que je désire corriger un 
texte (en général du haut vers le 
bas), je précède les corrections d’un 
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CTRL-B qui, tout en me plaçant en 
haut du fichier, garantit que les re- 
cherches iront dans le bon sens. 


Visualisation du texte 


Quand on commence à utiliser la pa- 
gination, ou les titres en haut et bas 
de page, on souhaite parfois visuali- 
ser le résultat possible avant de lan- 
cer effectivement l'imprimante. C’est 
intéressant aussi pour tester les 
conséquences de la justification (faut- 
il ajouter des césures ?). 


La solution, toute simple, consiste à 
indiquer avec ’CTRL-P PDO” que 
l'imprimante (Printer Destination) est 
en fait l'écran. Si l’on a peur que 
tout cela défile trop vite, il suffit de 
prendre par exemple les paramètres 
d'impression ‘LI20” et "IP20” et 
d'indiquer avec "FE1” que l'on sou- 
haite imprimer” feuille à feuille. 


L’impression 


Pour imprimer sur du papier en 
bande un texte continu sans saut de 
page, il suffit d'entrer (après ’CTRL- 
P?”) les paramètres d'impression 
suivants : MHO, MBO, LI1, IP1 {ou 
tout autre nombre à la place du "1”, 
tant qu'il est égal pour LI et IP). 


La lecture de fichier 


Si vous essayez de lire un fichier 
dont le nom comporte un trait 
d'union ”-”, ce nom n'est pas re- 
connu en lecture. Heureusement, on 
peut alors, avec "CTRL-O B' re- 
nommer le fichier (là, le nom est re- 
connu) et lui donner un nom accep- 
table en lecture. 


Mise à jour des paramè- 
tres 

Les paramètres d'impression, access- 
sibles par ”’CTRL-P ?”, se mettent à 
jour automatiquement après chaque 
impression. Cela peut provoquer des 
surprises : si vous avez défini un titre 
haut (ou bas) directement dans le 
texte pour qu'il n'apparaisse pas sur 
la première page (la page de garde), 
il se trouvera dans les paramètres gé- 
néraux après l'impression. Si donc 
vous lancez ensuite une seconde im- 
pression sans avoir pensé à effacer 
ce titre de la liste des paramètres par 
défaut, il apparaîtra à la seconde im- 
pression dès la page de garde (et 
cela décalera aussi toute numérota- 
tion des pages que vous auriez pu 
demander). 


Le WPL 


Le Word Processing Language 
(WPL) est un excellent langage 


complémentaire (livré avec Apple 
Writer //e) permettant de créer des 
états personnalisés, d'effectuer des 
calculs, de préprogrammer en fait de 
multiples commandes d'Apple Writer. 


Nous lutilisons, chez Pom's, pour 
transformer automatiquement certai- 
nes séquences de caractères qui nous 
sont propres en celles attendues par 
la machine de photocomposition de 
notre imprimeur. Ainsi, Pom's est 
réalisé grâce à des textes préparés en 
Apple Writer //e, transformés par 
WPL, puis transmis par modem à 
l'ordinateur de l'imprimeur. 


La documentation du WPL occupe à 
elle seule plus de 100 pages: comme 
on peut en outre travailler quotidien- 
nement avec Apple Writer sans 
jamais avoir recours au WPL, nous 
n’en parlerons pas dans cet article. 


Bibliographie 


Bien entendu, nous vous conseillons 
(n'en déplaise aux copieurs frénéti- 
ques) la documentation du pro- 
gramme, dont la traduction française 
est bien faite. À part cela, vous pour- 
rez lire "Donnez du caractère à votre 
imprimante” dans le Pom's 9, et "Un 
bug Apple Writer //e” dans le Pom's 
10 (page 70). [| 





Adaptez Applewriter 1.1 à l’Apple //e 


Jacques Leroy 


Le programme de traitement de 
textes Applewriter 1.1 des Apple Il et 
Il Plus utilise des modules qui per- 
mettent d'introduire des minuscules, 
certains caractères spéciaux et de 
pallier l'absence de touches de dé- 
placement du curseur. 


Son utilisation sur un Apple //e est 
par contre source de déboires (les es- 
paces sont remplacés par une demi- 
barre transversale gauche, les chiffres 
deviennent des lettres minuscules) et 
cause d'insatisfactions (les possibilités 
nouvelles du clavier demeurent inuti- 
lisables). Il convient par conséquent 
de modifier ces modules afin d'obte- 
nir le système adéquat. 


Dans le Pom's 3. Jean-Louis Meil- 
laud rappelait qu'Applewriter 1.1 est 
un logiciel “ouvert”, à condition de 
se plonger dans les programmes en 
langage machine. Après un travail de 
bénédictin, sans avoir pratiqué anté- 
rieurement l'hexadécimal, j'ai réussi à 
détecter les modifications nécessaires 
pour adapter Applewriter 1.1 à l'Ap- 
ple //e. Ces modifications sont à la 
portée de tous et n'utilisent que le 
moniteur de l'Apple. 
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Modification de TEDITOR 


UNLOCK TEDITOR 

BLOAD TEDITOR 

RENAME TEDITOR, OLD.TEDITOR 
LOCK OLD.TEDITOR 

CALL -151 : passage en mode moni- 
teur 


*1505: EA EA EA EA 

Minuscules et caractères spéciaux. 
*09E0: EA 

Un seul espace pour passer en mode 
"déplacement du curseur”. 

*09E9: 8B 

*09F0: 8A 

*09F7: 95 

*x09FE: 88 

Utilisation des quatre flèches pour 
déplacer le curseur après la touche 
ESC, pour les corrections à faire 
dans le texte. 

*080C: 83 

*0810: C3 

Neutralise le CTRL-C dont les effets 
sont maintenant devenus nocifs. 
*3D0G : retour au Basic 

BSAVE TEDITOR, A$803, L$1040 
LOCK TEDITOR 


Modification de PRINTER 


UNLOCK PRINTER 

BLOAD PRINTER 

RENAME PRINTER.OLD.PRINTER 
LOCK OLD.PRINTER 

CAËL -151 


+12E1: EA EA Caractères spéciaux 
*12E8: 00 Majuscules et 
*12F6: 00 minuscules 


*109D: EA EA EA EA 

En-tête de page 

*0F56: A1 

Commandes d'impression désormais 
de la forme “lFJ” avec des majuscu- 
les. 

*3D0G 

BSAVE PRINTER, A$803, L$1040 
LOCK PRINTER 


NDER - Ces transformations vous 
permettent d'utiliser Applewriter 1.1 
sur un Apple //e sans devoir acquérir 
Applewriter //e. Par contre, les carac- 
tères étant recodés, vous ne pourrez 
avec cette nouvelle version d'Ap- 
plewriter 1.1 ni lire vos anciens fi- 
chiers Applewriter 1.1, ni transformer 
les nouveaux fichiers Applewriter 1.1 
en format Applewriter //e. E 


Pom's n° 12 


Ce programme vous permettra de 
constituer simplement des tables de 
shapes et de les modifier selon vos 
désirs (suppressions ou ajouts de 
shapes), de les visualiser, les sauver 
sur disquettes et les relire. 


Mode d’emploi 


Il ne devrait pas vous poser de pro- 
blèmes, dans la mesure où le pro- 
gramme indique toujours la nature 
des traitements possibles et vous y 
donne accès au moyen de menus. 


Pour la création d'une shape. vous 
disposez d'une ‘fenêtre quadrillée 
représentant un agrandissement de la 
partie de ‘forme” en cours de créa- 
tion. La shape complète est dessinée 
en grandeur réelle et en continu à 
droite de cette fenêtre. Si vous tou- 
chez l’un des bords ce celle-ci au 
cours des déplacements du spot, elle 
se déplace également sur la shape. 
c'est-à-dire que la partie agrandie se 
décale à l'intérieur de la fenêtre. 


Les touches [, J. K et M permettent 
les déplacements habituels. La tou- 
che P place un point à la position du 
spot dans la shape. et la touche F 
marque la fin de l'édition pour la 
création définitive et l'incorporation 
de la shape dans la table. 

La touche E est utilisée pour l'efface- 
ment: elle annule l'effet de la der- 
nière touche employée, qu'il s'agisse 
d'un déplacement ou de la mise en 
place d'un point. Une séquence de 
"E à répétition” permet donc de re- 
faire en sens inverse tout le chemin 
accompli depuis le début de la créa- 
tion. 


Une seule précaution à prendre lors 
de la création d'une shape : ne pas 
dépasser le nombre maximum de 
vecteurs autorisé pour chacune d'el- 
les (le programme vous prévient lors- 
que vous approchez de la zone dan- 
gereuse). 


Un éditeur de shapes 


Le programme 


I se compose d'un programme en 
Applesoift et d'une routine en lan- 
gage machine “cachée” à la fin de 
celui-ci. Vous trouverez ci-après la ré- 
capitulation hexadécimale de cette 
routine : elle occupe les adresses 
$1753 à $1820 (5971 à 6176 en dé- 
cimal). Les adresses $1821 à $19A1 
(6176 à 6561) sont en outre utilisées 
comme zone de stockage. 


Si vous rentrez vous-même ce pro- 
gramme en machine. vous devrez 
donc mettre aux adresses $AF-$BOQ 
(175-176), qui contiennent l'adresse 
de fin du programme Applesoft en 
mémoire, l'adresse $19A1 (dans l'or- 
dre A1 19), et ce après avoir saisi 
l'Applesoft et le code-machine, mais 
avant de sauver le tout sur disquette 
par une seule instruction SAVE. 
Vous pouvez faire, par exemple : 
POKE 175, 161 : POKE 176. 25 
après retour au Basic, avant de taper 
SAVE ‘programme. 


NDLR: lors de la lecture du pro- 
gramme Applesoft d'édition de 
shapes, vous trouverez certaines ins- 
tructions quelque peu bizarres, à 
base de variables à priori inutiles 
dont le nom comporte un nombre 
variable de Z (voyez notamment la 
dernière ligne !}. Si vous rentrez ce 
programme en machine, il ne vous 
sera pas nécessaire de reproduire ces 
instructions. l'essentiel étant que vous 
respectiez l'adresse de début de la 
routine en langage machine ($1753) 
et que vous ne tapiez pas finalement 
un programme Applesoft plus long 
que celui publié ci-après (afin qu'il 
n'y ait justement pas conflit entre les 
deux parties du programme). Pour 
notre part, nous avons laissé ces ins- 
tructions dans la liste afin qu'elle 
reste comparable au programme 
fourni sur la disquette d'accompa- 
gnement de ce numéro de Pom's. 
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Nous allons maintenant vous expli- 
quer brièvement leur raison d'être. 
La version initiale du programme 
proposée par l'auteur comportait un 
grand nombre de caractères de 
contrôle, destinés notamment à amé- 
liorer la présentation du texte à 
l'écran (sauts de ligne). Mais ces ca- 
ractères présentent un grave inconvé- 
nient : ils n'apparaissent pas lors d'un 
LIST du programme et peuvent 
même donner l'impression qu'une 
série d'espaces sépare les deux par- 
ties de texte qui les encadrent. 
Conséquence : le lecteur ne peut pas 
reconstituer le programme original à 
partir de la liste publiée. De plus. 
abusé par cette liste, il risque de 
taper un programme trop long. dé- 
bordant sur les adresses réservées à 
la routine en langage machine. pour 
aboutir à un résultat déplaisant : un 
“plantage”. Nous avons donc modi- 
fié ce programme. afin d'obtenir 
exactement le même nombre d'oc- 
tets pour l'Applesoft mais unique- 
ment avec des caractères visibles. 


Ceci nous fournit l'occasion de lancer 
un appel à l'intention de tous les au- 
teurs qui envisagent de contribuer à 
Pom's: n'oubliez pas vos futurs lec- 
teurs ! En d’autres termes, n'incorpo- 
rez dans vos programmes que des 
caractères ‘listables et publiables”, 
surtout si leur fonctionnement sup- 
pose l'emploi d'une routine ‘ea- 
chée”. De même. il est bon de se 
rappeler que tous les possesseurs 
d'Apple ne disposent pas d'un sys- 
tème permettant l'affichage des mi- 
nuscules à l'écran. Une instruction 
telle que: PRINT ‘Appuyez sur C 
pour continuer” risque fort de laisser 
perplexe l'utilisateur d'un Apple II+ 
standard, et il est alors douteux, jus- 
tement, qu'il puisse continuer. 





, 4 FORC=E - 3 TO E + 3 STEP 6: HPLOT 
A eS SR SHAPES B,C TO B + 1,C: NEXT : FOR C = 
artie visible E - 2 TO E + 2 STEP 4: HPLOT 
E - 1,C TO E + 2,C: NEXT : FOR 
1 ONERR GOTO Z4 C=E -1TOE + 1: HPLOT B - 
2 À = 5971:B$ = CHR$ (4):4% = 200 2,C TO E + 3,C: NEXT : HCOLOR= 
: DEF FN ACB) = PEEK (E) + 3: RETURN 
256 * PEEK (B + 1): HCOLOR= 5 FOKE 34,0: INVERSE : VTAB 21: HTAB 
2: SCALE= 1: ROT= O: DIM PX(A 1: FRINT "DEBUT="F; SPCC 13 — 
Z3: GOTO 21 PEEK (36); "FIN=":;G; SPCC 25 
3 FOR C = - 1 TO 1: FOR D = 0 TO —  PEEK (36)) ;"SHAPE °";Ccx"/" 
1: HPLOT B + D,E + C: NEXT : NEXT H; SPCC 40 - PEEK (36)): NORMAL 
HCOLOR= 3: RETURN : POKE 34,21: RETURN 
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Se 
EE 


41 


42 


20 
21 


23 


24 


25 


26 


27 


28 
29 


30 


POKE 34,1: HOME : UTAB 4: PRINT 
"1. CATALOGUE DRIVE 1": PRINT 
PRINT "2, CATALOGUE DRIVE 2 
“2 PRINT PRINT "3. "C$" TAB 
LE DE SHAPES": PRINT PRINT 
"4. RETOUR AU MENU": PRINT : 
PRINT "UCTRE CHOIX :"; 

GET A$:C = VAL (AS): IF C < 1 OR 
C >} 4 THEN 7 
PRINT C: IF C = 

$"CATALOG,D1": 


PRINT 


1 THEN PRINT B 
GET À$: GOTO 6 


IF C = 
.D2": 
IF C = 
RETURN 
IF 
IF 
IF 
IF 
IF 
À 
IF 
3 
IF 
6 
IF 
Â 
RETURN 
K = 232: 

9148 
IF F = 0 THEN HOME : 
PRINT "$300=768": PRINT "#40 
00=16384": PRINT "#$6000=2457é4 
“: PRINT "$8000=32768": PRINT 
“$97000=36864": PRINT : PRINT 
"LOMEM=" FN AC105): PRINT “HI 
MEM=" FN A(115): INPUT "ADRES 


2 THEN PRINT B$"CATALOG 
GET A$t: GOTO 6 
4 THEN POP : GOTO 24 

279 THEN 

155 THEN 

159 THEN 

Q THEN J 

148 THEN 


= 155 

= 279 

= 0 

159 

= 148: CALL 


VANVAN 
URIRRCRS 


{ 3 THEN B = 3: CALL À + 


{ 4 THEN E = 4: CALL À + 


150 THEN B 150: CALL 


+ œ@ m œ Muumm 


0 


L = 233:M = 49152:N = 4 


VTAB 10: 


SE DEBUT CDECIMALD:"3F: IF F € 
768 THEN F = 0: GOTO 22 

POKE F,0:G = F: POKE K,F —- INT 
(F./ 256) *x 256: POKE L, INT 
(F / 256):2 = 22 

TEXT HOME INVERSE : PRINT 
® EDITEUR DE SHAPES 

*: NORMAL : VTAB 5 

: PRINT "1. CREER UNE TABLE D 
E SHÂPES": PRINT "2. AJOUTER 
DES SHAPES": PRINT "3. SUPPRI 


MER DES SHAPES" 

PRINT "4, VISIONNER VOS SHAPES 
“+: PRINT "S. LIRE UNE TABLE D 
U DISQUE": PRINT "é. SAUVER L 
À TABLE SUR DISQUE": PRINT "7 

TERMINER": POKE 34,20: HOME 
:H = PEEK (F): GOSUB 5:22 = 2 
Z 

VTAB 23: HTAB 1: 
CHOIX 
$): 


PRINT "UOTRE 
GET A$:C = VAL (À 
IF C < 1 OR C > 7 THEN 26 


s 8. 
5 5 


PRINT C: ON C GOTO 64,71,73,80 
.86,89,91 

UTAB 23: HTAB 2:0 = 0 

PRINT CHR$ (7)::B = 80:E = 746 


: GOSUB 3:BX = O:1 = 216:J = 
79 
BZ = BX + 1: IF BX > AX - 10 THEN 
INVERSE : UTAB 21: HTAB 1: PRINT 
CHR$ (7);"  VECTEUR #H":;B4; SPC( 
5); "(MAX = ";AZ;")"; SPCC 40 - 
PEEK (36)): NORMAL : UTAB 23 


93 


: HTAB 2 
GET A$: IF À$ = "P" THEN  HPLOT 
1,J: GOSUB 4:0 = 4: GOTO 31 
IF 4$ < > "I" THEN 35 
IF O = O THEN HCOLOR= 0: 
3 
J = J - 1:E = E - 8: GOSUB 12: GOSUB 
3:BZ(B%) = 0 + 0:0 = 0: GOTO 
30 
IF AE < > 
IF Q = 


GOSUB 


"J* THEN 38 

Q THEN HCOLOR= QG: GOSUB 

I = I - 1:B = 
3:BXCBX) = 
30 
IF ÀA$ < >} "K" THEN 41 
IF O0 = O0 THEN HCOLOR= OQ: 
3 

1I=1+1:B= 
3:B/(BY) = 
30 
IF À < >} 
IF Q = 
3 

J = J + j:E = 
3:BX(BX) = 
30 
IF ÀA$ < > "E" THEN 53 

BA = BX - 1:P = BXCBY): IF O = 
4 THEN HCOLOR= 0: HPLOT I,J: 

GOSUB 4 

Q = HCOLOR= 0: 
7 GOTQO 29: 

a 

0 THEN E = 


B - 7: GOSUB 12: GOSUR 


3 + 0:0 = 0: GOTO 


GOSUB 


B + 7: 
1 + O0:0 = O0: 


GOSUR 12: GOSUB 
GOTO 


"M" THEN 44 

O THEN HCOLOR= 0: GOSUB 
E + £&: 
2 + 0:0 = 0: 


GOSUB 12: GOSUR 
GOTO 


GOSUB 3: ON B 

e IF F > 3 THEN 
P 

IF 
1 

IF P = 1 THEN E 
1 . 

IF P= 2 THNE=E - &:J = J - 
1 

IF P = 
1 

GOSUB 12: IF BXCEX) > 2 THEN 
HCOLOR= 0: HPLOT 1,J: GOSUE 4 

GOSUB 3 

IF A$ € > "F" THEN 31 

HOME : UTAB 23: PRINT "CREATIO 
N EN COURS":Q = Q:R = 0:S = 1 
: IF O = 4 THEN BXCBX) = 4:B% 
= B4 +1 

= PEEK (49200):P = BX(S):R = 
1: IF RD 3 THEN R= 1 

= 1 THEN @ = 

= 2 THEN QG = 

{ > 3 GOTO 6 

€ 


To 
DC 


E + 8:J = J + 


B - 7:11 = 


3 THEN B = B + 7:1 = I + 


Q 
} 


P 
Q+68+*PF 
1 


[ap] 


IF S < BX THEN 55 
IF QG > O0 THEN T = 

T,0 

T HGR 
,79: RETURN 

HOME : UTAB Z3: INPUT "NOMBRE 
DE SHAPES (1-255) ?";H: IF H « 
1 OR H > 255 THEN 64 


+ 


0 
Le oO N Go 


4 


DRAW CA ÀT 139 


CZ = 0: POKE F,H: FOR C = 1 TO 
3: POKE F + C,0: NEXT :G = F + 
2*H +2 

HOME PRINT * I": PRINT "J K 
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6? 


68 


70 G 


73 


74 


75 


76 D 


HOME : 


ON 


ON H < 2 GOTO 24: HOME : 


HGR : 


HOME: 


POUR DEPLACER, P = POINT, E = 
EFFACE M"; SPCQ 17)3"F = FIN 
“3302 = CZ + 1: IF C4 > H THEN 

4 H: GOTG 24 
T'-Fs POKE F +2 x C 

— INT (U / 256) x 256: POKE 
1 + 2 x C4, INT ÇU / 256) 
OSUB 5: HGR FOR C 0 TO 
154 STEP 7: HPLOT C,0 TO C,15 
2: NEXT : FOR C 0 TO 152 STEP 
8: HPLOT 0,C TO 154,C: NEXT : 
GOSUB 5: GOSUB 28 
VTAB 23: PRINT 
VOUS SATISFAIT ?*;: 
A$ < > "0" 


EX = 
= G:ÙU 
LU 
Fe 
: G = 


"EN ETES 
GET À$: 
AND ÀA$ < > "N* 


IF 
THEN 
"N" THEN CZ C4 —- 1: GOTO 
66 
= T: GOTO 66 
H = 0 GOTO 24: HOME : VTAB 
23: INPUT "COMBIEN VOULEZ-VOU 
S EN AJOUTER ? ";Vi:W = H + UV: 

IF VU € 1 OR W > 255 GOTO 71 

2 # VU: FOR C = 1 TO H 
+ 2:T = FN ACD) + X:5S 

(T / 256):P = INT (T 
256): POKE D,P: POKE D 
35: NEXT :D = D + X + 2:G 
+ X: FOR C G TO D STEF 
: POKE C, PEEK CC — X): NEXT 
W: POKE F,H: GOTO 66 
UVTAB 
23: INPUT "QUELLE SHAPE VOULE 
Z-VOUS SUPPRIMER ? ";CZ: IF C 
7% < 1 OR CZ > H THEN 73 
GOSUB 5: DRÂAW CZ AT 139, 
79: HOME : VTAB 23: PRINT "C’ 
EST BIEN CELLE-CI ÇO/N) ? "3: 

GET A$: IF ÀA$ < > "O" THEN 
73 


VTAB 21: FLASH : PRINT 
"COMPRESSION EN COURS, VEUILL 
EZ PATIENTER";: NORMAL :U = C 
7% # 2 + FiT = F + FN ACU):C 
T 


PEEK (C): POKE C,0:C = C + 
IF D < > 0 THEN 76 


1: 


77? X = C -T: FOR D = C TO G: POKE 
D —- X, PEEK (D): NEXT :G = G - 
X:H = H - {il = F: FOR C = 1 TO 
HU = U + 2: IF C > CZ THEN T 
= FN ACU + 2) - X - 2: GOTO 
79 
78 T = FN AU) - 2 
79 P = INT (T / 256): POKE U + 1, 
P: POKE U, INT (T - P x 256): 
NEXT :G = G - 2: FOR C = U + 
2 TO G: POKE C, PEEK (CC + 2): 
NEXT :C% = H: POKE F,H: GOTO 
24 
80 ON H = O0 GOTO 24: HOME :C%4 = 1 
5 PRINT : PRINT "ESPACE = PAU 
SE RETURN = FIN" 
81 HGR : GOSUB 5: DRAW CZ AT 139, 
79:C = 1 
82 D = PEEK (M): IF D < 128 THEN 
C = C + 1: ON C < 100 GOTO 82 
CZ = CX 1: ON CX < = H GOTO 
81:C% = H: GOTO 24 
83 POKE N,0: IF D = 141 THEN CX = 
H: GOTQO 24 
84 IF D = 160 THEN UVTAB 24: GET 
AS: IF CZ < H THEN CZ = CZ + 
1 
85 GOTO 81 
86 C$ = "LECTURE D’UNE": GOSUB 4 
87 VTAB 23: HTAB i: INPUT "DONNEZ 
—SON NOM :";D$: ON D$ = "" GOTO 
87: PRINT B$"BLOAD";D$;",4"3F 
:H = PEEK (FD:CX = H:G = F + 
FN ACF + 2 x H) 
88 G = G + 1. ON PEEK (G - 1) < > 
Q GOTO 88: GOTO 24 
89 C$ = "SAUVER LA": GOSUB é 
SO VTAB 23: HTAE 1: INPUT "SOUS Q@ 
UEL NOM ? ";D$: ON D$ = "" GOTO 
70: PRINT B#"BSALVE":D$;",.4"3F 
3",.L"3:G — F: GOTO 24 
F1 TEXT HOME :222222222222222227 


222222272222222222222222222222 
Z22222222222222272222222222222 
222222222222Z22222222222222 = 
[e 


————————————"— ——————————]——]—— 


Partie cachée de 


1808- A2 07 

1810- 21 18 
SUPER-SHAPES ete oi 0e 
1751- 41 00 4C 83 17 4C C1 1820- 40 20 
1758- 17 4C Eé 17 A2 97 BD Ei 1828- 3C 20 
1760- 18 85 04 BD 21 18 85 05 1830- 3C 21 
1768- A0 01 B1 04 88 91 04 C8 1838- 3D 21 
1770- C8 CO 16 DO F5 84 29 07 1840- 3D 22 
1778- F0 05 À9 01 88 91 04 CA 1848- 3E 22 
1780- DO DC 40 A2 01 BD Ei 18e 1850- 3E 23 
1788- 85 06 BD 21 18 85 07 BD 1858- 3F 23 
1790- E9 18 85 04 BD 27 18 85 1860- 3F 20 
1798- 05 A0 15 Bi 04 91 06 88 1868- 3C 20 
1740- 10 F9 ES E0 98 DO DE CA 1870- 3C 21 
1748- BD Ei 18 85 06 BD 21 18 1878- 3D 21 
17B0- 85 07 A9 01 A0 15 91 06 1880- 3D 22 
17B8- 88 10 FB CA EO0 90 DO E8 1888- 3E 22 
17C0- 60 A2 97 BD Ei 18 85 04 1890- 3E 23 
17C8- BD 21 18 85 05 A0 14 Bi 1898- 3F 23 
17D0- 04 C8 91 04 88 88 10 F7 18A0- 3F 20 
17D8- 8A 29 07 FO 05 À9 01 C8 18A8- 3C 20 
17E0- 91 04 CA DO DE 60 A2 8F 18B0- 3C 21 
17E8- BD Ei 18 85 04 BD 21 18 18B8- 3D 21 
17F0- 85 05 BD E9 18 85 O0é BD 18C0- 3D 22 
17F8- 29 18 85 07 A0 15 B1 04 18C8- 3E 22 
1800- 91 06 88 10 F9 CA DO E0O 18D0- 3E 23 
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85 0é BD 18D8- 3F 23 27 2B 2F 33 37 
15 A9 01 18E0- 2F 00 OQ GG 00 00 00 
CA DO EÂ 18E8- 00 80 80 80 80 80 80 
30 34 38 18F0- 80 00 00 00 00 00 06 
30 34 38 18F8- 00 80 80 80 80 80 80 
31 35 39 1900- 80 00 06 00 00 00 00 
31 35 39 1908- 00 80 80 80 80 80 80 
32 36 1910- 80 00 GG G0 00 00 00 
32 36 3À 1718- 00 80 80 80 80 80 80 
33 37 3B 1920- 80 28 28 28 28 28 28 
33 37 3B 17928- 28 À8 À8 A8 À8 A8 A8 
30 34 38 1730- ÀS 28 28 26 28 28 28 
30 34 38 1938- 28 A8 A8 À8 A8 A8 A8 
31 35 397 1940- ÀB 28 28 28 28 28 28 
31 35 39 1748- 28 À8 À8 ÀB AB AB A8 
32 36 SA 1750- À8 28 28 28 28 28 28 
32 36 3 1958- 28 À8 ÀB A8 A8 A8 A8 
33 37 3B 1960- À8S 50 50 50 50 50 50 
33 37 3B 1968- 50 DO DO DO DO DO DO 
30 34 38 17970- DO 50 50 50 50 50 50 
30 34 38 1978- 50 DO DO DO DO DO D0Q 
31 35 39 1980- DO 50 50 50 50 50 50 
31 35 39 1988- 50 DO DO DO DO DO DO 
32 36 SA 1790- DO 50 50 50 50 50 50 
32 36 3A 1998- 50 DO DO DO DO DO DO 
33 37 3B 1740- DOG 41 
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Nombres flottants en langage machine 


Introduction 


Le but de cet article est double : 


e approfondir les connaissances du 
lecteur en matière de structure des 
données en Applesoft et notam- 
ment sur celle des nombres flot- 
tants: 

e répondre aux besoins des scientifi- 
ques en leur fournissant un pro- 
gramme de formatage de nom- 
bres. 


Les thèmes suivants seront abordés : 


e l'accumulateur flottant: 

e représentation de flottants en mé- 
moire: 

e comment trouver une constante 
en ROM ? 

e formatage de nombres scientifi- 
ques. 


Il sera pratique d'utiliser le Moniteur 
Etendu de Thierry Le Tallec dans 
Pom's 8 et de prendre connaissance 
de l'article de Philippe François sur 


les programmes relogeables dans 
Pom's 7. 
Accumulateur flottant : 
FAC 


De même que le microprocesseur 
6502 dispose d'un accumulateur 8 
bits sur lequel il effectue les opéra- 
tions essentielles d'addition et de 
soustraction, l'Applesoft comporte 
une zone mémoire analogue pour les 
nombres flottants qu'il manipule : 
l'accumulateur flottant baptisé FAC. 


FAC est une zone de 6 octets s'éten- 

dant des adresses $9D à $A2. dans 

laquelle l'Applesoft stocke les nom- 

bres flottants (par opposition aux 

nombres entiers), sur lesquels il réa- 

lise des opérations évoluées telles 

que : 

e les quatre opérations : + — x 

e des fonctions comme : SIN COS 
TAN EXP LOG … 

e des transformations comme : INT 
ABS … 


Pour comprendre sous quelle forme 
les flottants y sont enregistrés. il suffit 
de se souvenir comment - en nota- 
tion décimale - nous décomposons 
les nombres. Tout nombre N s'écrit : 
N = M * 10 C où M désigne la 
MANTISSE, avec 0<= M! <1, et C 
désigne la CARACTERISTIQUE (ou 
exposant). 


En binaire. on peut tout naturelle- 
ment adopter les mêmes disposi- 
tions : 


Exemple 1: N = 7,5, soit (0.75 x 
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10 

En décimal, N = 0.75 x 10 1 
Remarquons que N = 15 x 2 —1]. 
Nous multiplions N par 2 jusqu'à ob- 
tenir un nombre entier. Remarquons 
que cette opération n'est pas tou- 
jours possible. comme on peut le 
constater dans l'exemple 2._ 

En binaire, N = 1111 « 10 —1 

(15 en base 10 = 1111 en base 2) 
(2 en base 10 = 10 en base 2) 
Décalons : N = 0.1111 * 10 11 

(3 en base 10 = 11 en base 2) 

soit en hexa:N=0Fx23 


L'accumulateur FAC est une zone de 
6 octets dans laquelle les nombres 
sont codés de la façon suivante : 
{C'MLMMM:S: 

C : caractéristique majorée de $80 
M1'M'M'M : mantisse sur 4 octets 

S. l'octet d'extension. caractérise le 
signe du nombre : 

- si N > 0 alors S est M1 avec le bit 
7 à zéro 

- SiN < 0 alors S est égal à M1 
notons que si N = 0 alors C=0 


Pour notre exemple. 7.5 sera donc 
codé : 

83/F0/00/00/00/70 

7.5 à pour mantisse 0.FO 00 00 00 
et pour exposant $3. 

En effet, il est positif, donc S = $FO 
avec le bit 7 (le plus fort) à zéro, or 
$FO = 1111 0000. donc S = 0111 
000 soit $70. 


Exemple 2 (plus complexe) : soit à 
coder N = 74 

On multiplie par 2. soit N = 14.8 * 
2 —] 

Comme ce n'est pas un entier, re- 
commençons avec: N = 296 x 
Cela ne convient toujours pas. Jus- 
qu'où faut-il donc répéter le double- 
ment ? Eh bien, nous savons que la 
mantisse (exprimée en binaire) est 
codée sur les quatre octets M1 M M 
M du FAC, soit 4x8=32 bits. La 
mantisse (ou du moins sa partie déci- 
male) ne peut donc excéder 2 32 — 
4.294.967.296. Il ne faut par consé- 
quent pas poursuivre la multiplication 
par 2 au-delà de cette valeur. | 

Ainsi, 7.4 = 3972844749 x 2 —929, 
Cette valeur de la mantisse est une 
valeur approchée car, derrière le der- 
nier 9, il U à encore une décimale. 
Ceci dit. l'erreur est inférieure à 
2 —30, soit 9410 —10 (ce qui justi- 
fie les 10 chiffres significatifs de l'Ap- 
plesoft). 

I reste à coder la mantisse en bi- 


naire, où plus simplement en hexa- 
décimal, grâce à des divisions succes- 


Erick Ringot 


sives par 16 : : 

3 972 844 749 = 14%16 7 + 
12x16 6 + 12*16 5 + 1216 4 + 
12x16 3 + 12*x16 2 + 12+16 + 13 
= $EC CC CC CD 

Il faut décaler le point décimal de- 
vant la mantisse, soit une translation 
de 32 bits. La nouvelle caractéristi- 
que vaut donc : —29 + 32 = 8, 


En conclusion : 

Ni C = $80+5$03 — 
83 

Mantisse M1 M M M = $EC CC CC 

CD 


Octet d'extension : on prend M1 = 
$EC = 1110 1100: comme N est 
positif, on supprime le bit numéro 7 
(le plus fort). Donc, S = 0110 1100 
soit S=$6C en hexadécimal. Ainsi, 
7.4 est codé $83 EC CC CC CC CD 
6C dans le FAC (C MI MMMS). 


On peut vérifier cet état de fait direc- 
tement en mémoire; il faut pour cela 
charger le FAC avec la valeur de son 
choix, puis le consulter. 


Vérification en mémoire 


L'instruction Basic USR constitue 
une voie de passage entre l'Applesoft 
et le langage machine. Pour pouvoir 
l'utiliser, il faut préciser à l'Apple 
l'adresse du programme en langage 
machine que l'on désire appeler. 
Cette adresse (qui occupe 2 octets) 
doit être écrite dans les octets 
11=$B (octet faible de l'adresse) et 
12=$C (octet fort). 


Ainsi, pour une routine implantée en 
768=$300, on tapera POKE 11,0 
(adresse faible), puis POKE 12,3 
(adresse forte) et l'Apple ‘’saura” 
qu'à la prochaine utilisation de USR, 
il devra exécuter la routine à 
l'adresse $300. 

Si l'on écrit Y=USR(X) où X et Y 
sont des variables numériques, X 
sera versé dans le FAC par l'Apple- 
soft de façon automatique avant 
l'exécution de la routine en langage 
machine. Si cette routine prend en 
charge le FAC, alors Y contiendra le 
résultat de ses calculs. 


Quant à nous, utilisons USR simple- 
ment pour voir comment l'Apple 
code les nombres dans le FAC. En 
$300. nous mettons un octet nul $0, 
qui est le code d'une interruption 
BRK stoppant toute procédure et 
donnant la main au moniteur: 
tapons POKE 768.0 à cette fin. 

Nous profitons alors de cette inter- 
ruption pour consulter directement le 
FAC en mémoire vive, dans les 6 
octets de $9D à $A2. 

















Exemple 1 : codage de 7.5 en FAC. 


Taper B=7.5:A-=B:PRINT USR(A) 
L'Apple s'interrompt comme prévu 
et l'astérisque indique le passage au 
mode moniteur. 

Taper 9D.A2 pour consulter FAC. La 
réponse : 

0093D- 83 FO O0 

O00AO- O0 O0 70 


confirme nos prévisions. 
Pour retourner à l'Applesoft, taper 
CTRL-C. 


Exemple 2 : codage de 7.4 en FAC. 


On reprend la procédure avec la va- 
leur 7.4 (après avoir refait les 
PORKESs), puis 9D.A2, et la réponse 
devient effectivement : 


009D- 83 EC CC 
O0AO- CC CD 6C 


Les flottants ”’packés” 


On peut reprocher au codage de flot- 
tant en FAC d'être redondant; l'octet 
d'extension S contient en effet deux 
informations : le signe du nombre et 
la valeur de M1, ce dernier est donc 
surabondant. 


Par mesure d'économie. les flottants 
en mémoire ne seront donc plus 
codés que sur 5 octets selon la confi- 
guration suivante, dans laquelle M1 
est remplacée par S : 


C'est la forme compactée. ‘’packée”. 


Ainsi, la valeur 7.4 est codée 83 EC 
CC CC CD 6C dans le FAC, mais 
on gagne un octet en mémoire 
standard” en la codant : 83 6C CC 
CC CD. 


Echange entre FAC et la 
mémoire 


Maintenant que les deux types de 
codage nous sont connus, il serait fa- 
cile de réaliser un petit programme 
en langage machine effectuant la 
transition de l’un vers l’autre et réci- 
proquement. On imagine bien que 
l'Applesoft dispose déjà de telles rou- 


tines : 

MOVMF EQU $EB2B 

MOVe Memory < FAC 

qui convertit et transfère le FAC en 
zone mémoire pointée par les regis- 
tres Ÿ (octet fort) et X (octet faible). 
En retour, l'accumulateur et le bit Z 
du registre d'état reflètent FACEXP 
(octet S de FAC). 

(traduit de “Whats Where in the 
Apple ?” de F.Luebbert - Ed. Micro 
Inc.). 


On trouve évidemment la routine ré- 
ciproque : 

MOVFM EQU $EAF9 : 

MOVe FAC + Memory 

qui convertit et transfère vers FAC la 
mémoire pointée par le registre Y 





(octet fort) et l'accumulateur À (octet 
faible). 


Ces routines vont nous permettre de 
faire quelques exercices. 


Passons en mode moniteur: CALL 
—151 
Implantons le programme utilisé par 
USR en $300 (00 03 aux adresses 
$B-$C) et en $300 : 


AO 03 LDY #$503 
l'octet fort de l'adresse du nombre 
est $03 

A2 10 LDX #S10 


l'octet faible de cette adresse est $10 
20 2B EB JSR 


$SEB2B 


transfère le FAC (chargé par USR) 
vers $310 
00 BRK 


interruption 
qui traduit FAC vers la zone de 5 
octets commençant en $310. 


Repassons en Basic par CTRL-C (et 
RETURN) et entrons : 


NEW 
10 INPUT A : PRINT USR (A) 
RUN 


Répondons : 7.5 (RETURN) au ‘?" 


Apres le BREAK x. on peut consulter 
la zone $310 par 310.314 

On obtient alors la réponse : 

83 70 00 00 00 


On peut effectuer cette opération 
pour les nombres 1. et 10. dont nous 
aurons besoin plus tard : 


1. estcodé 81 00 00 00 00 
10. est codé 84 20 00 00 00 
O. est codé 00 00 00 00 00 
PI2 est codé 81 49 OF DA A2 
(1.57079633) 


Comment trouver une 
constante flottante en 
ROM ? 


L'Applesoft a besoin de certaines 
constantes pour ses calculs: Pl/2, 
Log(2) permettant de calculer 
toute fonction comme série entière. 


Le programme MONITEUR.OBJ du 
Moniteur Etendu (Pom's 8) nous 
permet la recherche de constantes, à 
condition d'en connaître le codage, 
ce qui ne nous pose plus de pro- 
blème. 


Chargeons le moniteur : BRUN MO- 
NITEUR.OBJ. 

La ROM s'étend de $CFFF à $FFFF. 
Pour la recherche d'une constante en 
ROM, il suffit de taper : 
CFFF.FFFF/C S M M M (RETURN) 


Le Moniteur Etendu donne l'adresse 
du premier octet s'il le trouve. On 
obtient ainsi les résultats suivants : 


NOM VALEUR ADRESSE CODE 





ONE 1.  E9i3 81 00 00 00 00 


EA5O 84 20 00 00 00 
FO66 81 49 OF DA A2 


TEN 10. 
PI/2  PI/2 


Formatage de nombres 
en notation scientifique 


À titre d'exemple, nous allons écrire 
une routine en assembleur permet- 
tant de formater les nombres en no- 
tation scientifique. 


Format choisi : il est fixe. 


Les nombres formatés occuperont 
exactement 10 caractères selon le 
format : 

sm.mmmErcc 

s = signe 

mmmm = mantisse M telle que 
1<M<10 (4 chiffres significatifs dont 
3 décimales) 

E = signe d'exponentiation 

r = signe de caractéristique 

cc = caractéristique 


Ainsi, —124.57 
—1.246E +02. 


Algorithme 


s'écrira 


Le principe d'une telle routine est de 
transformer le nombre en chaîne de 
caractères. 


1) I faut d'abord initialiser la chaîne 
à zéro : 

CHAINE = "+0.000E +00" 

2) Il faut ensuite déterminer le signe 
du nombre et modifier si nécessaire 
le premier caractère de CHAINE en 
conséquence : 


CHAINE € ‘’_0.000E +00” 
Nombre <Æ Valeur absolue 





3) Le calcul de la mantisse et de la 
caractéristique se conduisent simulta- 
nément. Si le nombre est supérieur 
ou égal à 10, il faut le diviser par 10 
et incrémenter la caractéristique. Si le 
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nombre est inférieur à 1. il faut le 
multiplier par 10 et décrémenter la 
caractéristique. La caractéristique est 
initialisée à zéro. 


CARAC+0 











— 


| nombre Æ nombre/10 
| carac € carac +1 





nombreÆ nombre x10 
carac € carac —1 


4) Ne gardant que trois décimales, il 
faut arrondir : pour cela. on multiplie 
par 1000, on ajoute ,5 (afin d'arron- 


dir et non tronquer}, puis on divise 
par 1000. 


Exemple : n = 1.834627 
Arrondir : 1000 x n = 1834.627 
1000 x n +.5 = 1835.127 
Partie entière — 1835 

Divisée par 1000 : 1.835 


Remarque : un problème peut surve- 
nir dans le cas particulier où 9.9995 
< n < 99999 En effet, l'arrondi 


donne alors 10. Il faut donc reforma- 
ter : 


oui 


nombre <——— nombre X 1000 


nombre <— nombre + .5 


nombre — nombre / 1000 
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5) On transforme NOMBRE en une 


chaîne de caractères. on la verse 
dans CHAINE : on transforme égale- 
ment CARACT en une chaîne en 
prenant garde qu'elle comporte 3 ca- 
ractères, VU compris le signe. et on 
transfère dans CHAINE. Il ne reste 
plus qu'à écrire CHAINE. 









Conversion nombre / chaîne | 





7 mime 





Transfert dans CHAINE 





Tr 
| 






| 
Conversion caract / chaine | 


Es oi 


ont À 


[Ecrire CHAINE > Retour > 


Sous-programme Applesoft 


1 ÉRÉSLÉELÉELÉL LS RE Variables : 

: : Sr  . Û CHS : chaîne recevant la chaîne 
4 + , | CA% : caractéristique 

S » FORMATAGE DE NOMBRES # LES nombre à formater, puis man- 
: . EAN ETRNETTS : (voir le listing de SCIENT.APP) 
B #2 2 2 26 0 2 DH DD DE DE DE DE DE DE DE 6 DE M Routine en assembleur 
3 ; : 

10 :E.RINGOT, LE 16/01/83 (DOS Tool Kit) 

+ RE 

12 ORG $1000 ; POUR ASSEMBLAGE SEULEMENT 
15: 

14 5--------------- 

15 ;<1>-VARIABLES 

16 s-------------.— 

17 : 

18 CHAINE EQU 5250 : BUFFER 

13 SIGMAN EQU CHAINE :SIGNE DE MANTISSE 

20 MANTIS EQU CHAINE+1 :;:MANTISSE 

21 POINT EQU CHAINE+2 

22 SYMBEX EQU CHAINE+6 :SYMBOLE ’E’ 

23 SIGEXP EQU  CHAINE+7 ;SIGNE D’EXPOSANT 

24 EXPOSA EQU CHAINE+8 :EXPOSANT 

25 FINCHA EQU CHAINE+10 

26 EXPO EQU S$260 ; CARACTERISTIQUE 

27 FRESPC EQU S71 : POINTEUR DE CHAINE 

28 ONE EQU S$SE913 : CONSTANTE FLOTTANTE 1. 

29 TEN EQU SEAS5O : CONTIENT LE FLOTTANT 10. 
30 : 

Bi :----------------- 

32 ;<2>-ROUTINES ROM 

83 ;---------—————- 

34 :; 

35 CHRGOT EQU $5B7 :N'AVANCE PAS LE POINTEUR 

36 CHRGET EQU SB1 ; CARACTERE DANS LE BASIC 
37 FRMNUM EQU SDD67 : FAC = EXPRESSION 

38 MUL10 EQU S$EA39 ;: FAC = FAC * 10 

393 DIVI10 EQU SEASS : FAC = FAC / 10 

40 SIGN EQU S$SEB82 : À = SIGNE (FAC) 

41 ABS EQU SEBAF : FAC = ABS (FAC) 

















Syntaxe 


Nous vous proposons d'appeler une 
routine formatant et éditant les nom- 
bres. La syntaxe de la routine Apple- 
soft sera : 

CALL adr, nombre |:] 

adr = adresse décimale de la routine 
qui sera relogeable 

, = Séparateur 

nombre = argument à passer : cons- 
tante, expression, variable numérique 
[:] = spécification optionnelle empê- 
chant le retour chariot après édition 
On ne peut écrire qu'un seul nombre 
avec un tel CALL. 


Commentaires sur le programme 


Lignes 78-79 : CHRGET saisit la vir- 
gule dans le texte Applesoft et incré- 
mente le pointeur TXTPTR. 
FRMNÜM transforme l'expression 
numérique suivant la virgule et la 
transfère dans FAC. 


Lignes 98-100 : STROUT écrit une 
chaîne de caractères pointée par les 
registres Y(MSB) et A(LSB): la 
chaîne doit se terminer par un octet 
nul - ne pas confondre avec un octet 
contenant 0” soit $30. 


Lignes 102-108 : CHRGOT prend le 
caractère dans le texte Applesoft, 
mais sans incrémenter le pointeur 
TXTPTR. Si le caractère n'est pas 
7”, on envoie un retour chariot. 
Dans le cas contraire, on le passe 
grâce à CHRGET et on revient à 


l'Applesoft. 


| 


Lignes 116-134: calcul de la man- 
tisse et de la caractéristique EXPO. 
FCOMP compare FAC au nombre 


pointé par Ÿ et À à la sortie. 


À contient O si FAC = MEM 
À contient 1 si FAC > MEM 
À contient FF si FAC <MEM 


Lignes 138-150: procédure d'’ar- 
rondi - la routine FADDH ajoute 0.5 
à FAC. 


Lignes 154-163 : transforme le FAC 
en chaîne grâce à FOUT. La chaîne 
est pointée par Ÿ et À à la sortie 
(normalement, c'est $100). On récu- 
père cette adresse en FRESPC (page 
0), ce qui nous permet de la transfé- 
rer vers MANTIS. On contrôle deux 
choses : 

- arrêt du transfert si la chaîne se ter- 
mine par 0; 

- arrêt du transfert si 5 caractères au 
maximum sont transférés (ce qui 
nous met à l'abri des erreurs de cai- 
cul). 


Lignes 167-174, 175-182, 183-189 : 
dans chacun de ces trois blocs, on 
écrit le signe de la caractéristique, on 
transforme la caractéristique en 
chaîne et on la transfère vers EX- 
POSA: si l'exposant ne comporte 
qu'un chiffre, on insère un ‘0° par 
devant. 


SAN ERN TE TERNNNNRENT TES 
AE 
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FLOAT EQU S$EB93 : FAC <= À 

INT EQU SEC23 

FADDH EQU $E7AO >; FAC <= FAC + 1/2 

FCOMP EQU SEBB2 ; COMPARE FAC AVEC (Y,A) 
FOUT EQU SED34 ; CHAINE CARACTERES <= FAC 
STROUT EQU  SDB3A : ECRIT UNE CHAINE 

CROUT EQU S$FD8E : RETOUR CHARIOT 

RETURN EQU SFF58 : VOIR POM’S 7 PAGES 27-28 


> INITIALISATION EXPOSANT 


LDA #0 
STA EXPO 
STA FINCHA 
:INITIALISATION DE LA CHAINE À ZERO 
LDX #9 
LDA #’0” 
ZERO  STA CHAINE, X 
DEX 
BNE ZERO 
LDA #’+° 
STA SIGMAN 
STA SIGEXP 
LDA #’E’ 
STA  SYMBEX 
LDA #’.’ 
STA POINT 
: SAISIE NOMBRE A FORMATER 
| JSR  CHRGET : PASSE LA VIRGULE 
JSR  FRMNUM :L'EXPRESSION PASSE EN FAC 
:SIGNE ET VALEUR ABSOLUE 
JSR SIGN sé <= SIGNE(FAC) 
BEG ECRIT :SI FAC = O, TERMINE 
CHP #1 ;FAC POSITIF ? 
BEQ ABSO : OUI ! 
LDA #’-” :NON !,ON CHANGE LE SIGNE 
STA  SIGMAN : CONTENU EN SIGMAN 
JSR ABS ;FAC <= ABS (FAC) 
ABSO  CLV ; PROGRAMME RELOGEABLE 
JSR RETURN :VOIR POM’ 7 
BVC FORMAT : PSEUDO JSR FORMAT 
: ECRITURE DU NOMBRE FORMATE 


ECRIT  LDY #<CHAINE :;(Y,A) POINTENT 
LDA #>CHAINE :VERS CHAINE 
JSR STROUT ;ECRIT CHAINE 
JSR CHRGOT ; PREND LE CARACTERE SUIVANT 
CMP #S3B ;EST-CE LE CARACTERE “;:" ? 
BEQ RETOUR ; OUI! 
JSR CROUT :NON! RETOUR CHARIOT 
RTS 
RETOUR JSR CHRGET 3SAUTE CE“;" 
RTS 
: FORMATAGE DE LA VALEUR ABSOLUE 
FORMAT TSX ;CF. POM’S 7 
DEX 
DEX 
TXS 
TENFAC LDY #<TEN : COMPARE FAC A 10. 
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Etude comparative des 
routines 


Place mémoire 


Routine Applesoft compactée (sans 
REM) numérotée à partir de 100 de 
10 en 10. 


- programme = 350 octets 
- descripteurs 3 variables — 21 octets 
- chaîne = 10 octets 
TOTAL ui 

= 381 octets 
Routine assembleur $FA = 244 


octets, soit un gain de 36 % en place 
mémoire. 


Mesures de rapidité 


Exemple 1 : 

FOR I = 1 TO 1000: NB = I: 
NEXT 

Temps d'exécution : 3 secondes. 
Exemple 2 : 

FOR I = 1 TO 1000: NB = I: 


GOSUB 100 : NEXT 
Temps d'exécution : 144 secondes. 


Exemple 3 : 
FOR I = 1 TO 1000 : CAL: 40961: 
NEXT 


Temps d'exécution : 60 secondes. 


Temps unitaires : 


routine Applesoft : 144—3:1000 = 
141 ms 
routine assembleur : 60—3:1000 — 


57 ms, soit un gain de temps de 
60%. 


Conclusion 


La pauvreté de l'Applesoft amène ré- 
gulièrement le programmeur à écrire 
de petites routines palliant ses défi- 
ciences naturelles. Deux voies s'of- 
frent à lui : le Basic et le langage ma- 
chine. Le Basic est simple à écrire 
mais lent, gourmand en place mé- 
moire et incapable de gérer des va- 
riables locales. Le langage machine 
est beaucoup plus souple d'utilisation 
mais demande un temps de pro- 
grammation plus important et un édi- 
teur-assembleur. Néanmoins, le pré- 
sent article montre que l'utilisation 
intensive des routines présentes en 
ROM facilite grandement la tâche du 
programmeur, une bonne documen- 
tation s'impose alors. Enfin. la consti- 
tution d'une bibliothèque d'utilitaires, 
que l’on charge selon les besoins, est 
bien plus simple à réaliser en langage 
machine (pourvu que les routines 
soient relogeables) grâce à BLOAD, 
qu'en Basic où il faut jongler avec les 
HOLD, MERGE et compagnie. Un 
premier élément de cette bibliothè- 
que (LIBrary en anglais. d'où le nom 
du code objet) est proposé au- 
jourd'hui. Chacun peut y apporter sa 
pierre = 
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117 
118 
119 
120 
+21 
122 
123 
124 
125 
126 
127 
128 
1293 
130 
131 
132 
133 
134 
135 
136 
137 
138 
1393 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
1353 
154 
155 
156 
157 
158 
1593 
160 
161 
162 
163 
164 
165 
166 
167 
168 
163 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
183 
1930 
191 


ONEFAC 


; ARRONDI À TROIS DECIMALES 


ARROND 


sn se ve 


MOVMHAN 


LDA 
JSR 
CMP 
BEQ 
JSR 
INC 
CLC 
BCC 


LDY 
LDA 
JSR 
CMP 
BNE 
JSR 
DEC 
CLC 
BCC 


JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 


LDY 
LDA 
JSR 
BEQ 


JSR 
STY 
STA 
LDY 
LDA 
BEQ 
STA 
INY 
CPY 
BNE 


#>TEN 

FCOMP 

#SFF ;A < 10. ? 

ONEFAC :OUI! 

DIVI0 :FAC <- FAC / 10. 

EXPO : NON! INCREMENTE L’EXPOSANT 
TENFAC : SAUT INCONDITIONNEL 

#<DNE : COMPARE FAC À 1. 

#>ONE 

FCOMP 

#SFF TA < 1. ? 

ARROND : NON! 

MUL10 : FAC <- FAC * 10. 

EXPO ;OUI! DECREMENTE L’EXPOSANT 
ONEFAC : SAUT INCONDITIONNEL 





MUL10 33 MULTIPLICATIONS DE 
MUL10 ; FAC PAR 10. 

MUL10 

FADDH : AJOUTE 1/2 À FAC 

INT : PREND LA PARTIE ENTIERE 
DIVI0O :3 DIVISIONS DE 

DIV10 :FAC PAR 10. 

DIVI0 

#<TEN : POUR LE CAS 

#>TEN ; OU L’ON PASSERAIT 
FCOMP :DE 9.S3395 A 10 
TENFAC ; CORRECTION 


TRANSFERT MANTISSE DANS CHAINE 


FOUT ; TRADUIT LA MANTISSE EN CHAINE 
FRESPC+1 ; ADRESSE TRANSFEREE 

FRESPC :EN FRESPC LIBRE 

#0 


(FRESPC),Y ; TRANSFERT VERS CHAINE 


CALEXP ;: CARACTERE NUL = FIN DE CHAINE 
MANTIS,Y 

#5 :5 CARACTERES MAXI 

MOVMAN 


;: TRANSFERT DE L’EXPOSANT 


CALEXP 


ABSEXP 


MOVEXP 


FINEXP 


LDA 
JSR 
JSR 
CMP 
BNE 
LDA 
STA 
JSR 
JSR 
STY 
STA 
LDY 
LDA 
STA 
INY 
CPY 
BNE 
CMP 
BNE 
LDA 
STA 
LDA 
STA 
BIT 
RTS 


:FAC <= EXPO 

;A <= SIGNE DE L’EXPOSANT 
:NEGATIF ? 

: NON! 
;OUI!, CHANGER LE SIGNE 
SIGEXP 

ABS 

FOUT 
FRESPC+1 
FRESPC 

#o 
(FRESPC) ,Y 
EXPOSA, Y 


; EXPOSANT EN CARACTERES 


: POINTEUR 


#2 

MOVEXP 

#0 ; CARACTERE NUL ? 
FINEXP ; NON! 

EXPOSA 
EXPOSA+1 
#0? 
EXPOSA 
RETURN 


: SINON, DECALAGE 
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Programme SCIENT.OBJ 1070- ES A9 13 20 B2 EB C9 FF 






1000- A9 00 8D 60 O2 8D SA O2 1088- EA 20 39 EA 20 AO E7 20 
1008- A2 O9 A9 BO 9D 50 O2 CA 1090- 23 EC 20 55 EA 20 55 EA 
1010- DO FA AS AB 8D 50 O2 8D 1098- 20 SS EA AO EA A9 50 20 
1018- 57 O2 A9 C5 8D 56 O2 A9 1040- B2 EB FO B7 20 34 ED 84 
1020- AE 8D 52 O2 20 B1 OO 20 1048- 72 85 71 AO OO B1 71 FO 
1028- 67 DD 20 82 EB FO 12 C9 10B0- 08 39 51 O2 C8 CO 05 DO 
1030- O1 FO O8 A9 AD 8D 50 O2 10B8- F4 AD 60 O2 20 93 EB 20 
1038- 20 AF EB B8 20 58 FF 50 10C0- 82 EB CS FF DO O8 A9 AD 
1040- 16 AO 02 AS 50 20 3A DB 10C8- 8D 57 02 20 AF EB 20 34 
1048- 20 B7 OO C9 3B FO O4 20 10D0- ED 84 72 85 71 AO OO B1 
1050- 8E FD 60 20 B1 O0 60 BA 10D8- 71 93 58 O2 C8 CO O2 DO 


CA CA 9A AO EA A9 50 20 10E0- F6 CS OO DO OB AD 58 O2 
B2 EB CS FF FO O9 20 55 10E8- 8D 59 O2 AS BO 8D 58 O2 
EA EE 60 O2 18 9O EC AO 10FO0- 2C 58 FF 60 
RS 
Fu 36 REM HORORORON MON ON DENON NO 2 2 6 À CA%X + 1 
M 92 REM + FORMATAGE DE NOMBRES « 170 CHS = CHS + LEFTS ( STRS (NB),1) + 
34 REM + SCIENTIFIQUES * : + RIGHTS ( STRS (NB),3) + "E 
96 REM +* VERSION EN BASIC x» +" 
98 REM  #xæuxuxx xx 2% 0% 2% 00% 2 D 2 NON NON 180 IF CA% < © THEN CAK = ABS (CA%):CH 
100 CHS$S = ‘“’+0.000E+00":CA% = © S = LEFTS (CHS,7) + "“-" 
110 IF NB = © THEN 210 190 IF LEN ( STRS (CA%)) = 1 THEN CHS 
120 CHS = "+": IF NB < O THEN CHS = “-": = CHS + “O" 
NB = ABS (NB) 200 CHS = CHS + STRS (CA%):NB = FRE (O 
130 IF NB > = 10 THEN NB = NB / 10:Cax%x ) 
= CA% + 1: GOTO 130 210 PRINT CHS$: RETURN 
140 IF NB < 1 THEN NB = NB * 10:CA% = C 930  REM 
A% - 1: GOTO 140 “xx PROG.PPAL *##x 
150 NB = INT (NB * 1000 + .5) 
160 IF NB = 10000 THEN NB = 1000:CA% = 1000 TEXT : HOME 
CA% + 1 1005 PRINT "CHRONOMETRAGE COMPARATIF 
170 CH$S = CHS$S + LEFTS ( STRS (NB),1) + DES VERSIONS 
"." + RIGHTS ( STRS (NB),3) + “E | BASIC ET LANGAGE-MACHINE 
LA DE LA ROUTINE 
1980 IF CA% < O THEN CA% = ABS (CA%):CH DE FORMATAGE 
S = LEFTS (CHS,7) + "-" " 
130 IF LEN © STRS (CA%)) = 1 THEN CHS 1010 PRINT ‘“<1i>- BOUCLES A VIDE 
= CHS + “Oo” <2>- BOUCLES BASIC 
200 CHS = CHS + STRS (CA%):NB = FRE (O <3>- BOUCLES LANGAGE MACHINE 
) <4>- FIN" 
210 PRINT CHS: RETURN 1020 GET AS:A = VAL (AS): IF À < 1 OR 
EE A > 4 THEN 1020 
1025 IF A = 4 THEN END 
10 REM #*#*x PROGRAMME SCIENT.DEM ##%x 1030 GOSUB 40: ON A GOSUB 1100,1200,130 
O 
20 PRINT CHRS (4)'"BLOADSCIENT.LIB" 1040 GOTO 1000 
30 GOTO 1000 1090 REM 
40 VTAB 20: PRINT “TAPER UNE TOUCHE ET - BOUCLES VIDES - 
DECLENCHER LE CHRONO": WAIT - 16 
384,128: POKE - 16368,0: RETURN 1100 FOR I = 1 TO 1000: NEXT I: PRINT 
SO  REM CHRS (7): RETURN 
**xx FORMATAGE x#x 1190 REM 
- BOUCLES BASIC - 
100 CHS = ‘’+0.000E+00":CA% = © 
110 IF NB = O THEN 210 1200 FOR I = 1 TO 1000:NB = I: GOSUB 10 
120 CHS = +": IF NB < © THEN CHS = "-": O: NEXT I: PRINT CHRS (7): RETUR 
NB = ABS (NB) N 
130 IF NB > = 10 THEN NB = NB / 10:CA% | 1290 REM 
= CA% + 1: GOTO 130 - BOUCLES MACHINE - 
140 IF NB < 1 THEN NB = NB «x 10:CA% = C 
A% - 1: GOTO 140 1300 SCIENT = 4096: FOR I = 1 TO 1000: € 
150 NB = INT (NB * 1000 + .5) ALL SCIENT,I: NEXT 1: PRINT CHRS 
160 IF NB = 10000 THEN NB = 1000:CA% = (7): RETURN 
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votre nouvelle 
ibliothèque Apple 
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Sélectionné par Apple 
et Microsoft 





pour découvrir 
Mac Paint 
et Muiltiplan 
sur le 
fabuleux Macintosh 


Un livre qui vous permettra d’entrer de plain-pied dans ces 
deux logiciels en découvrant les infinies possibilités du 
Macintosh. 

LEOSSE:::: soir sh is een rss nee 89,00 F 


Ecrivons un programme pour Apple 


Pour vous amuser en apprenant la programmation sur un micro- 
ordinateur qui semble doté de pouvoirs magiques. Vous apprendrez 
à lui donner des ordres en BASIC et toutes sortes d'instructions. 
Vous pourrez vous en servir pour dessiner. Vous le comprendrez 
et vous saurez le faire fonctionner en ouvrant ce livre, 


1C0544 


Vous et lordinateur Apple 


Un livre pour tous ceux qui veulent connaître l'APPLE et s’en faire 
un ami. 

33 leçons pour apprendre à programmer en BASIC, chaque leçon 
est illustrée de commentaires, d'explications, de programmes et 
d'exercices complémentaires. 


1C0542 129,00 F X 


Le Logo sur Apple U 


Un livre pour faire l'apprentissage de LOGO, un moyen x 
d'expression très puissant. D'une façon très vivante, Ÿ 

ce livre explique les étapes à suivre pour concevoir js * NS 
et réaliser toutes sortes de projets... à partir de Si * 

la tortue LOGO, ce célèbre petit animal 9 Ce) 
cybernétique qui se déplace sur l'écran ,&* à 
en laissant une trace derrière lui. 5° : 
1C0543 129,00 F S 


99,00 F 




















votre 


Oui, vous serez assurés d’enri- 
chir votre savoir-faire « micro- 
informatique» indispensable au- 
jourd'hui à la vie professionnelle 
en suivant les conférences de 
MICRO-EXPO. 

Du 22 au 26 mai, dans le cadre 
de ce 9° Congrès Exposition, à Pa- 
ris au Palais des Congrès, Porte 
Maillot, pour 100F seulement 
vous aurez accès à 40 heures de 
conférences sur : 

Mardi 22 mai : Choisir son mi- 
cro ou ce qu'il faut savoir avant de 
l'acheter; Pionniers US. 

Mercredi 23 mai : Les bases de 
données et leur utilisation (comp- 
tabilité des PME et PMI sur micro 
avec dBASE 2); Un micro-ordina- 
teur, à quoi ça sert? Visi On: 
Initiation au langage Basic; 
Pionniers France. 

Jeudi 24 mai : Informatique et 
Télématique à la ferme organisée 
par l'ISAB; La micro dans l’offi- 
cine; La micro et les médecins; 
Gestion financière avec un ta- 





EXPO 


RATE ISA 
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Fi 


SYBEX 
V7 


Garantissez 


SUCCESS 


Professionnel 


bleur électronique; Un micro-or- 
dinateur, ça s'entretient; La pro- 
grammation structurée (Pascal et 
Modula 11): MS WIN: Initiation 
au langage ADA. 

Vendredi 25 mai : Les enjeux 
du contrat informatique ; Micro et 
ordinateur personnel : les postes 
de travail de demain; Décision- 
nel graphique, représentation, 
communication d'analyse et de 
résultats; Comprendre la téléma- 
tique. 

Samedi 26 mai : choisir son mi- 
cro ou ce qu'il faut savoir avant de 
l'acheter; Introduction aux mi- 
croprocesseurs. 

Participez à ces conférences. 
vous garantirez votre suCCès pro- 
fessionnel et deviendrez l’interlo- 
cuteur recherché à plus d'untitre. 

















COUPON-REPONSE A RETOURNER A SYBEX : 6-8, impasse du Curé - i 
75018 P. poser dans un magasin portant l'affiche MICRO-EXPO [ 
[ui re litre de participation au tirage au sort du voyage à gagner 
ur Si JA ura lieu en présence de Maitre P, CHALE, Huissier à | 
Paris. Merci de m'adresser 
une rée gratuite et le programme détaillé des conférences ‘| 
un eport valeur 104) F me donnant droit à l'entrée permanente, au 
guide de la micro, et de suivre toutes les conférences, ‘| 
NOM 
Prénom Û 
Société [| 
N° Ru i 
Code postal Ville 
(| Activité de l'entrép: (| 
Fonction [| 
Ci-joint chèque de 100 F 
Po 4 
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Cela fait maintenant environ un mois 
que j'utilise régulièrement le Macin- 
tosh, avec en fait trois programmes 
seulement: MacPaint, MacWrite et 
Multiplan, sur un appareil en version 
US. J'ai eu l'occasion de le montrer 
à des amis, à des étudiants, à des 
cadres et à des dirigeants d’entre- 
prise. Le plus frappant est que, quel 
que soit mon interlocuteur, chacun 
aurait bien voulu en avoir un. On 
comprend pourquoi les américains, 
malgré l'usine super-robotisée de 
Fremont, n'arrivent pas à satisfaire la 
demande. Il est question que la pro- 
chaine publicité exploite le thème 
On savait qu'on en vendrait un mil- 
lion, mais pas en deux semaines ..”. 
Ceci dit, nous faisons un peu les frais 
de cette réussite, puisqu'il faudra at- 
tendre le mois de juin pour pouvoir 
en acheter un en France. 


La souris 


Tout d'abord quelque peu sceptique 
quant à l'intérêt pratique de la souris, 
je dois avouer qu'elle m'a convaincu. 
On s’habitue très vite au confort 
qu'elle apporte, et cela devient d’au- 
tant plus frustrant d'obtenir ensuite 
sur son brave Apple //e le message 
"SYNTAX ERROR" parce qu'on a 
tapé trop vite ‘CQTQLOG”! La 
souris est agréable car elle permet 
une sélection extrêmement rapide 
d'options dans un menu, mais aussi 
parce que les logiciels ont été conçus 
pour en tirer parti. Ainsi, toutes les 
instructions du “DOS”, tout ce qui 
revient à demander un catalogue, lire 
un fichier, le sauvegarder, exécuter 
un programme, …, tout cela s'obtient 
exactement de la même façon avec 
tous les logiciels tournant sur Macin- 
tosh. On se demande si cela a en- 
core un sens de réaliser pour ces lo- 
giciels des documentations de plus 
de 10 pages. C'est vraiment très 
agréable de voir tous les logiciels uti- 
liser le même vocabulaire, la même 
syntaxe (si on peut encore parler de 
syntaxe, tellement c’est simple). 


En quoi le Macintosh change-t-il la 
façon de travailler sur des logiciels 
spécifiques tels que le traitement de 
texte ou un tableur ? 


MacWrite 


Avec MacWrite, on peut réaliser des 


textes impossibles à obtenir avec un 
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Un mois avec le Macintosh 


autre micro-ordinateur (à part Lisa). 
Parvenir à sortir un texte en justifica- 
tion totale avec, dans une même 
ligne, des polices et des corps (tailles) 
de caractères différents, pouvoir en 
outre imprimer tel quel ce qu'on voit 
à l'écran, cela tient du miracle. Bien 
entendu, contrairement à ce que l’on 
voit même sur certains programmes 
de traitement de texte implantés sur 
de gros ordinateurs, on ne perd pas 
la justification avec les trémas, ou les 
accents circonflexes. 


Autre particularité originale de 
MacWrite : la possibilité de récupérer 
n'importe quel texte, dessin ou ta- 
bleau provenant d'un autre logiciel 
pour l'insérer dans le texte. On peut 
même déformer à loisir chacune de 
ces insertions, en les tirant vers le 
bas, vers la droite, .…. comme si elles 
étaient en caoutchouc. 


Seul inconvénient, relevé d’ailleurs 
par Daniel Garric dans son article 
(Pom's 11), la taille relativement res- 
treinte (8 pages) du fichier maximal 
actuellement entrable sous MacWrite. 
Mais cela devrait s'améliorer avec 
l'extension de la mémoire centrale 
au-delà des 128K de RAM actuels 
(en plus des 64K de ROM). 


Multiplan 


Par rapport à Multiplan sur Apple //e, 
on remarquera les originalités : possi- 
bilité d'imprimer un tableau simulta- 
nément au travail, impression de tra- 
vers pour les tableaux très larges 
(aucun problème, puisque l'Image- 
Writer est une imprimante graphi- 
que). Sur le plan pratique, on cons- 
tate un grand gain de temps pour les 
déplacements dans le tableau (à 
l'aide des curseurs horizontal et verti- 
cal). Il devient enfantin de modifier la 
largeur d’une colonne et de la mettre 
juste à la bonne dimension, ce qui 
demande normalement des tâtonne- 
ments pénibles sur tout autre maté- 
riel. Il n’est plus nécessaire de feuille- 
ter la documentation pour retrouver 
le nom exact où la syntaxe d’une 
fonction donnée : on fait rapidement 
défiler les noms de fonctions. On 
peut définir une largeur de colonne 
nulle, ce qui évite enfin ces dange- 
reux ‘’Mouvemente” auquel on était 
obligé d’avoir recours pour bien pré- 
senter certains tableaux. Et, finale- 
ment, la récupération de tout ou par- 


Hervé Thiriez 


tie d’un tableau pour insertion dans 
un texte s'effectue sans douleur. 


Il existe aussi un mode ‘entrée de 
données”, dans lequel la grille 
lignes/colonnes n’est plus visible, et 
où les données à entrer sont repré- 
sentées par des pointillés. Cela réduit 
le risque d'erreur. À ce mode est as- 
socié une possibilité de protection 
par un mot de passe: les cellules 
protégées ne peuvent alors être mo- 
difiées ni même consultées. 


MacPaint 


Faut-il encore décrire MacPaint qui 
est probablement le plus montré de 
tous les logiciels car il est ”’bluffant”. 
Je le trouve excellent, mais j'estime 
cependant les performances obte- 
nues avec MacWrite (et, à moindre 
titre, avec Multiplan) tout aussi sur- 
prenantes. 


Les outils de 
développement 


Ce n'est pas le moment d'oublier 
l'excellent Basic Microsoft du Macin- 
tosh, d'autant plus puisssant qu'il a 
accès à toutes les instructions propres 
au Macintosh et relatives à la gestion 
de la souris, des écrans et des 
menus. Le Macinstosh Pascal, inter- 
prété, avec la possibilité de faire du 
pas à pas et de voir le programme 
sur une partie de l'écran et l'exécu- 
tion se réaliser à côté du listage. Et 
aussi l’assembleur 68000, Logo et 
Prolog. Il y a de quoi faire ! 


Les autres logiciels 


Chart (graphiques) est déjà sorti, 
pour être utilisé en relation avec Mul- 
tiplan ou Microsoft File. Parmi les cé- 
lébrités, on attend PES, Lotus 1-2-3, 
Microsoft Word, CX Base 200, 
Omnis.. Sans oublier bien entenu les 
autres produits ”’naturels’” MacTerm 
(communication), MacDraw et Mac- 
Project. Steven Jobs prévoit que 500 
logiciels sur Macintosh seront dispo- 
nibles avant la fin de l’année. Pour 
sa part, Bill Gates, le patron et fon- 
dateur de Microsoft (un gamin, lui 
aussi), s'attend à faire en 1985 la 
moitié de son chiffre d’affaires, pour- 
tant impressionnant, avec des pro- 
duits sur Macintosh. 
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La découverte de l’Apple //c 


Guy Mathieu 


À l'invitation d'Apple, j'ai eu le plaisir 
de visiter avec un groupe de journa- 
listes les installations Apple en Irlande 
et de découvrir le nouveau-né de la 
famille, le /c. Tout cela en tant que 
représentant de Pom's et dans d'ex- 
cellentes conditions d'organisation. 
Bravo, Apple ! 


Le //c est petit (6,35 * 30,48 *, 
29,21 en cms.), pas bien lourd (3,4 
kgs) et vous sera vendu dans une 
boîte en carton jetable. Ne croyez 
quand même pas qu'il se suffit à lui- 
même. L'alimentation (12 volts à 
l'entrée de la machine) est un boîtier 
séparé inclus dans le « paquet ». 
Notez toutefois que rien ne vous em- 
pêche de vous brancher sur l’allume- 
cigare de votre voiture. Une batterie 
faite sur mesure est enfin en prépara- 
tion chez Apple. 


Il vous faudra bien sûr un écran. 
Rien à voir avec celui du grand frère 
Macintosh. Ses parents ont sorti en 
son honneur un moniteur compact 
9 pouces de très bonne définition. 
Vous pouvez aussi utiliser directe- 
ment votre téléviseur pour peu qu'il 
accepte une prise Péritel. Un télévi- 
seur Thomson, nouveau, compact lui 
aussi et fonctionnant sous 12 volts, 
présente de même bien des avanta- 
ges. En préparation aussi, un écran 
plat de 24 lignes et 80 colonnes (fin 
84?) ainsi qu'un moniteur couleur 
d'excellente définition. 


A l'intérieur du //c (attention, vous 
perdez le bénéfice de la garantie si 
vous l'ouvrez — tant pis pour les bri- 
coleurs), 128K de RAM (le Basic Ap- 
plesoft, complété par des instructions 
« souris », se trouve dans les 16K de 
ROM). En standard, 80 colonnes, ou 
40 obtenables par une astuce {le 
contraire de l'Apple //c). Un lecteur 
de 143K hélas intégré (bon point 
pour la portabilité, mauvais point 
pour la maintenance), Un mode 
haute résolution simple de 80*192 
en six couleurs. Et un mode super- 
résolution de 560*192 en 16 cou- 
leurs. Le microprocesseur: un 
65C02 fonctionnant à 1 MHz, et 
possédant 27 instructions internes de 
plus que le 6502. 


Au-dessus du //c, un clavier bien des- 
siné, mais sans bloc numérique, en 
Azerty pour la version française, mais 
pouvant simuler le Quwerty. Tiens, le 
« Shift Lock » verrouille aussi les chif- 
fres ! On peut aussi régler le volume 
du haut-parleur, et même brancher 
un casque ou un haut-parleur ex- 
terne. 
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Derrière le //c, un lot de connec- 
teurs: RS232 (imprimante 9600 
bauds), connecteur pour second lec- 
teur de disquettes (et pas plus...) 
prise vidéo standard et prise RVB 
Chat Mauve, RS232 (modem 300 
bauds), prise à 9 broches pour man- 
che à balai (joystick), manettes 
(paddles) ou souris. Pas de disque 
dur envisagé, mais peut-être un jour 
des disquettes 3,5 pouces comme 
pour le Macintosh. Remarque: les 
lecteurs de disquettes du //e ne sont 
pas compatibles, n'en déplaise aux 
« cannibales ». 


À côté de tout cela, plusieurs dis- 
quettes d'initiation, y compris une 
initiation au langage Logo. Le sys- 
tème d'exploitation normal est le 
ProDOS, mais on peut travailler en 
DOS 3.3 et en Pascal. 


Et le prix ? Pour l'unité centrale et 
l'alimentation, le tout dans la boîte 
en carton, 12900 F TTC. Environ 
2000 FF pour l'écran Apple ou 
3900 FF pour le téléviseur Thom- 
son. L'écran plat reviendra à 5 à 
6 000 FF. Un peu plus de 3 000 FF 
pour le second lecteur. L'imprimante 
normale est l’ImageWriter. 


Du côté des logiciels, compatibilité à 
peu près totale avec les logiciels de 
l'Apple //e. Le logiciel sélectionne 
l'option 80 ou 40 colonnes. Si cette 
sélection n'est pas prévue dans le lo- 
giciel, un inverseur manuel permet 
d'y remédier. Il semble que quelques 
problèmes de compatibilité subsistent 
encore au niveau d'une interférence 
avec l'option «souris », laquelle re- 
vient à environ 900 FF. Un nouveau 
venu, disponible en anglais, pro- 
grammé pour cet été en français, Ap- 
pleWorks : traitement de texte, ta- 
bleur et gestionnaire de fichiers. 
Deux fenêtres, une dans laquelle on 
travaille, l’autre indiquant avec quoi 
on peut travailler et ce qu'on peut 


faire. Prix annoncé: de 2000 à 
2 500 FF. 


Autre nouvelle : Applebus accueillera 
bientôt des modèles variés de micro- 
ordinateurs en mettant en commun 
une imprimante laser (50 000 FF) et 
un serveur disque de 20 à 70 méga- 
octets. Vitesse de transfert : 230 kilo- 
bauds. La connexion à 500 FF par 
appareil. Présentation au SICOB 
pour une disponibilité en fin 84. 
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Voici une petite application inspirée 
par le programme LINEFEED de la 
disquette APPLE3. Pour les irréducti- 
bles du Basic, il manquait en Pascal 
les instructions PEEK et POKE. Ce 
n'est plus qu'un mauvais souvenir 
aujourd'hui avec PEEPO, un pro- 
gramme introduisant la fonction 
PEEK et la procédure POKE. 


Le programme 


MOT représente une unité de mé- 
moire Pascal, c'est-à-dire 16 bits sur 
deux octets. 


BIFACE est un enregistrement dont 
les deux champs ADRESSE et 
CONTENU sont confondus. 


ADRESSE est un entier sur 16 bits. 


CONTENU est un pointeur, c'est-à- 
dire une adresse sur 16 bits. Les 
deux champs sont à la même place 
en mémoire. 


Une référence à ADRESSE donne 
donc accès à cette zone. Une refé- 
rence à CONTENU -> 10! donne 
accès au premier des deux octets du 
mot que pointe CONTENU. C'est 
donc l'octet dont l'adresse en mé- 
moire est ADRESSE. 


Utilisation 


La dernière partie du programme il- 
lustre son utilisation. On commence 
par POKEr une ligne blanche et 
écrire un texte. Il suffit de choisir les 
adresses à partir de 1024 (mémoire 
écran texte) pour les PEEKSs. pour 
constater que le PEEK fonctionne 
bien et retourne effectivement les 
codes ASCII de l'écran ligne par 
ligne; en 40 colonnes, tout se passe 
bien; en 80 colonnes, cela renvoit les 
codes correspondant à une colonne 
sur deux. 


Précaution 


L'instruction POKE est à utiliser avec 
prudence. Le système Pascal réside 
en mémoire vive; il est donc assez fa- 
cile à détruire. E 











Les recueils de Pom'’s 


Le Recueil N°1 de Pom's étant 
épuisé, nous avons décidé de le 
retirer pour ne pas léser les pos- 
sesseurs récents d'Apple. Le pa- 
pier avant fortement augmenté 
depuis le tirage initial, le prix est 
passé à 130 FF. Il en est de même 
pour le Recueil N° 2 qui vient de 
sortir — veuillez nous pardonner 
l'erreur de la première annonce. 
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PEEKSs et POKESs 


en Pascal 


Jacques Pino 


PROGRAN PEEPD: 


VAR 1,J,X,Y : INTEGER: 
FUNCTION PEEK(ADRS : INTEGER) : INTEGER: 


D | 


TYPE MOT = PACKED ARRAYIO..1] OF 0..256: 
RIFACE = RECORD CAGE BOOLEAN OF 
TRUE : (ADRESSE : INTEGER) ; 
FALSE : (CONTENU : MOT) 
END: 
VAR PEEKPOKET : BIFACE: 
BEGIN 
PEEKPOKET. ADRESSE := ADRS: 
PEEK := PEEKPOKET. CONTENU [0] 
END; 
PROCEDURE POKE (ADRS, VAL : INTEBER) : 
TYPE MOT = PACKED ARRAYIO..11 OF 0..255: 
BIFACE = RECORD CASE BOGLEAN OF 
TRUE : (ADRESSE : INTEBER): 
FALSE : (CONTENU : MOT) 
END; 
VAR PEEKPOKET : BIFACE: 
BEGIN 
PEEKPOKET. ADRESSE := ADRS: 
PEEXPOKET, CONTENU" 10] := VAL 
END; 
{+ Petits exesaples d'utilisations de P£EK et POKE #) 
BEGIN PAGE (OUTPUT): MRITELN: WRITELN: CARRIERE) 
FOR 1:=0 TD 39 DO POKE{10284+1, 32) : {# }}} LIGNE BLANCHE #) 
LRO HAE) 
WRITELNU UN PETIT DUMP’): NRITELN( —): WRITELN: 
ÉÉAREREREMANNRE EEE) 
FOR I:= 1 TO 100 DO X:-PEFK(-16336): (# }}} HAUT-PARLEUR #) 
CRE) 


REPEAT MRITE(” ADRESSE—) *): READLN{X): 
WRITE (NOMBRE D°’OCTETS—-) *): READLN(Y) : 
MRITELN: 

IF Y=0 THEN BEGIN MRITELN: WRITELNU'QUE PEEPO SOIT AVEC VOUS......): 
EXIT (PROGRAM) 
END 
ELSE Y:=X4Y: 
REPEAT WRITEUX:6,° 2"): 
FOR J:=0 T0 7 DO WRITE(PEEK(X+J) :4) : 
MRITELN: X:=X48 
UNTIL X)Y: 
MRITELN 
UNTIL FALSE 
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Disquettes de jeux 


Oliver Herz 


Pom's est heureux de pouvoir vous 
proposer deux disquettes de jeux au 
prix modique de 80 francs pièce. Ces 
disquettes sont composées avec les 
contributions de quatre fidèles lec- 
teurs. Ces jeux, dont l'intérêt n’a rien 
à envier à l'ergonomie, sont variés, 
allant du labyrinthe au jeu d'adresse 
en passant par le jeu de réflexion. Si- 
gnalons que, de plus, ces jeux sont 
écrits en Applesoft (certains d’entre 
eux sont aussi fournis sous forme 
compilée). et qu'ils présentent donc 
un grand intérêt didactique. 


Disquette de jeux A 


Labvyrinthes - Jackpot - Paires - 
Awari - Chiffres en lettres - Multi - 
Pendu - Souris - Eve - Adam et Eve 
- Jeux à deux - Traclab 

Les sept premiers programmes vien- 
nent de Jacques Duma, les autres de 
Joël Lecoeur. 


Labvyrinthes 


Ce petit programme est présenté 
comme un jeu, mais son originalité 
principale réside dans l'algorithme de 
génération du labyrinthe. On voit se 
construire dans un rectangle un laby- 
rinthe aléatoire qui, de plus, possède 
une propriété remarquable : si l’on 
prend deux cases quelconques du 
rectangle, il n’y a qu’un seul chemin 
possible pour les relier. 


Il suffit de suivre les instructions pour 
jouer. [| y a deux versions du jeu, 
LABYRINTHE 2D en deux dimen- 
sions et 3D en trois dimensions. 

Avec la version 2D, on voit le plan 
du labyrinthe et il suffit de trouver la 
sortie le plus rapidement possible. Si 
l'on fait ”?”, la solution est fournie 
par le programme. 

Avec 3D, on est à l’intérieur du laby- 
rinthe et seuls les couloirs sont visi- 
bles. Quelques indications d’orienta- 
tion sont fournies. Si l’on fait +” 
on tourne sur place et le plan devient 
visible quelques secondes. Le ‘?” 
cette fois, termine le programme sans 
donner la solution. 


NDLR: Jacques Duma nous a 
fourni une troisième version qui est 
la même que la version 2D, mais 
compilée avec Expediter Il. Elle est 
donc beaucoup plus rapide. Rien de 
vous empêche d'essayer de compiler 
d’autres jeux avec l'un des compila- 
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teurs Applesoft existant sur le mar- 
ché. 


Jackpot : il s'agit du jeu de casino, 
distrayant et utilisant au mieux les 
possibilités graphiques en basse réso- 
lution. 


Paires : aussi appelé ‘jeu de la mé- 
moire”. Il s'agit de retourner des 
paires de cartes. On peut jouer seul 
contre l'ordinateur (en réglant sa mé- 
moire .…) ou à plusieurs. 


Awari : c'est une version particulière 
d'un jeu africain classique. La straté- 
gie programmée est simple : à cha- 
que coup, l'Apple prend le plus 
grand nombre de pions possible. 
Cette stratégie est faible, on peut bat- 
tre le programme. Qui peut trouver 
mieux ? 


Chiffres en lettres : ce programme 
écrit en lettres un nombre donné en 
chiffres. 


Multi: un jeu réécrit pour l'Apple 
d'après une idée trouvée dans un 
des premiers numéros de l'Ordina- 
teur Individuel. 


Le Pendu est un grand classique. 
Dans la version facile, on a dix coups 
pour trouver le mot inconnu: dans la 
version difficile, on n'a que cinq 
coups. Les mots sont choisis parmi 
333 d’une liste donnée en DATA 
qu'il est facile de modifier, à condi- 
tion de modifier aussi le nombre de 
mots de la liste, indiqué au début de 
celle-ci. 


Souris, Eve, Adam et Eve, Jeux à 
deux, Traclab 


Ces programmes, basés sur les laby- 
rinthes, sont fort didactiques. Ce sont 
des jeux avec divers degrés de diffi- 
culté, ainsi qu’un défi que les ama- 
teurs relèveront sans doute (du 
moins le tenteront-ils). 

Il y à en fait 4 programmes et 2 
tables de formes; et si votre Apple a 
déjà ingurgité la disquette, vous pou- 
vez voir également une dizaine de 
"LABYRINTHE N°” qui sont des 
images basse résolution de labyrin- 
thes servant d'exemples à la dé- 
monstration. Ils ont été dessinés avec 
le programme TRACLAB, assez 
court, simple à utiliser et surtout bien 
utile pour le défi que lance EVE. 


Le défi d'EVE est le suivant: « nul 
tracé ne m'arrête, je trouve toujours 
la Pomme ». Le jeu vous permet de 
tracer avec TRACLAB un layrinthe et 
de voir EVE relever son défi: vous 
pouvez aussi la voir se faufiler à tra- 
vers l’un des 10 labyrinthes proposés 
sur la disquette. Dans la formule de 
jeu « Adam et Eve », vous vous trou- 
vez en concurrence avec EVE pour 
la course à la Pomme. La formule 
« Jeux à deux », enfin, autorise le jeu 
à deux joueurs. 


Disquette de jeux B 


Draw Poker - Quandary - Simon II - 
Poker 

Les trois premiers programmes ont 
été réalisés par Marc Bideault, le der- 
nier par Alban Liger. 


Draw Poker est un jeu de hasard. 
basé sur le principe des combinai- 
sons du poker. Heureusement pour 
lui, le joueur peut, à l'aide d'un para- 
mètre, se donner plus ou moins de 
chance. On mise, on distribue une 
main de 5 cartes. on sélectionne les 
cartes à remplacer (si nécessaire). 
Quand on gagne. on peut jouer le 
gain à quitte ou double en pariant. 
après avoir vu une carte tirée par 
l'ordinateur, sur le fait que la carte 
suivante (tirée elle aussi au hasard) 
sera plus petite ou plus grande. 


Quandary est un jeu de stratégie 
dans lequel chaque adversaire pos- 
sède quatre pions dans un échiquier 
coloré. En suivant certaines règles de 
déplacement. il faut être le premier à 
faire atteindre le bord opposé à l'un 
de ses pions. Ce jeu possède trois ni- 
veaux de jeu et est loin d'être imbat- 
table. La couleur (ou de très bons 
veux) est indispensable. Une version 
compilée par Tasc est fournie sur la 
disquette, afin d'accélérer le proces- 
sus. 


Simon II quant à lui, ne se pré- 
sente plus. Il s'agit du célèbre jeu de 
séquences sonores et colorées à mé- 
moriser. 


Poker est un programme de jeu qui 
reproduit sur l'Apple le jeu de Poker 
commercialisé sous forme de jeu 
électronique de poche. Il s'agit d’un 
poker très rapide, sans changement 
de cartes. 
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Apple- Tell est un système qui fait d'un simple Apple 
(votre Apple de tous les jours) un minitel intelligent 
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Apole -Tell comerend: 


— Une carte Modem incluant un décodeur Teletel | 
— un logiciel d'Emulation de Terminal Minitel enrichi de trois éblouissantes fonctions (celles qui 
faisaient le plus défaut jusqu'à présent sur votre minitel) : 


IMPRESSION : l'imprimante @ votre Aopie est exploitée pour sortir les copies papier dont vous 
avez besoin lorsque vous consultez un serveur. 


STOCKAGE : les disquettes 2 votre Agnie sont utilisées pour enregistrer les pages dont la 
consultation vous est nécessaire : 
* au format Teletel (c'est-à-dire telles que vous les avez reçues), 
*_en mode Texte pur (ASCII) pour exploitation locale ultérieure. 


AUTOMATISME : l'intelligence @æ votre Aome est mobllisée pour accomplir l'interrogation 
automatique du serveur que vous avez désigné (appel téléphonique, orientation TRANSPAC, 
identification, choix successifs) enregistrer sur papier et/ou sur disque les données 
consultées, puis pour traiter celles-c{, en les incorporant dans votre application. 

(Les Procédures d'interrogation sont créées par l'utilisateur, sans aucun 
langage de programmation, grâce au mode Apprentissage d'Apple-Tell.) 


Evénement du dernier SICOB, salué par toute la presse, consacré Pomme d'Or 1983 par le jury 


Apple, le système Apple-Tell marque une mutation décisive dans l'évolution des techniques 
videotex en environnement professionnel : 


*point d'arrêt à la prolifération des matériels sur votre bureau (effet “mini-Sicob") 

‘utilisation optimale des ressources dont vous disposez déjà (disques, imprimante, logiciels, etc.), 
utilisation possible en mode Terminai autant qu'en mode Serveur (jusqu'à six portes), 

enfin (et c'est sans doute le point le plus important) JONCTION entre le monde extérieur et et les 
outils standard de votre Apple : l'incorporation de données dans Apple-Writer, Visicalc, 


Multiplan, PFS, Quick-FÎle, etc. et même dans vos applications personnelles (comptabilité, suivi 
de commandes, fichier …) devient possible. 


Û 





Caractéristiques générales : 
+ Modem multimodes : 


-1200/75, 1200 (half-duplex), 
600(half-duplex), 300 (fuli-duplex), 
Standards CCITT et BELL (cette 
caractéristique unique rend accessibles les 
serveurs nord-américains, y compris par 
réseau téléphonique commuté), 


+ sorties : video composite (N&B) et Peritel 
couleur. 


* Compatible Apple 2, Apple 2+, Apple 2e 
(48k, une disquette) 

» Enfichable dans n'importe quel slot libre de 
votre Apple 2. 

+ Transparence totale vis-à-vis du système. 


BON DE COMMANDE 


HELLO Informatique - 1, rue de Metz 75010 PARIS 


Tél : (1) 523 30 34 - Telex FLASH 210500F 
Nom Société 
Adresse complète 
ville Code Postal tél. 


(règlement ci-joint par : 


C] chèque bancaire 


Sounaite recevoir une documentation sur le système Apple-Tell 


[] Commande [| 


système(s) Apple-Tell au prix de F. 5900 H.T. 


C] ccp) 
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VOUS PROGRAMMEZ SUR APPLE II 
VOUS VOULEZ GAGNER DU TEMPS 
VOUS CHERCHEZ A AMELIORER VOS CAPACITES 


LIGHT EST FAIT POUR VOUS ar sance tosicie” 





LIGHT est un ensemble de puissants logiciels 

d'aide à la programmation conçu pour: 

- mieux gérer les fichiers et les disquettes É 
mise à jour d’un catalogue général RE EF TT 
état des secteurs libres sur un disque 

- faciliter l'exploration et l'exploitation des disquettes 


accès direct, lecture, écriture des secteurs 
transfert et recherche des séquences d’octets 
- accélérer l’analyse de vos programmes 
en Basic: recherche des tokens et des suites désignées 
en Binaire: impression en désassemblé 
de séquences d’octets; pistage en tout ou 
partie du déroulement 





POUR EN SAVOIR PLUS SUR LIGHT : 
M. 


adresse 


demande une documentation complete, sans engagement de sa part, aux Années Nouvelles, 70, rue du Javelot, 75013 Paris. 


MODEMS TELSAT 


L' ACCES DE VOTRE MICRO ORDINATEUR AUX BASES DE DONNEES 
PAR LE RESEAU TELEPHONIQUE 





TELSAT 440 TELSAT 640 
Modem 300 bit/s full duplex Modem 6007/1200 bit/s full duplex 


Ces produits font partie de la gamme complète de modems, multiplexeurs et 
équipements de réseaux de transmission de données TELSAT distribués par 


S TELC international 69-71 rue du CHEVALERET 75013 PARIS 
Tél. 58414 75 Telex 204120F 
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Imprimez les codes ESC de votre PLE 


Vous connaissez la phrase tradition- 
nelle APRES avoir découvert PLE (le 
Program Line Editor, voir Pom's nu- 
méros 1 et 7): “Comment pouvais-je 
faire AVANT ?”. Pour ma part. je me 
suis découvert le besoin de plusieurs 
PLEs: un PLE standard. un PLE 
pour les programmes graphiques. un 
PLE pour les travaux sur fichiers. etc. 


permet de la détecter. En mémoire. 
les codes sont composés de la facon 
suivante : 


© Premier caractère — 
pée après ESC. 

e Caractères suivants = ce qui ap- 
paraîtra à l'écran. tous les octets 
étant supérieurs à 128 ($80). 

e Le caractère de fin de code est in- 
férieur à 128. 


touche frap- 


Pascal Fontanier 


Le programme a été écrit pour fonc- 
tionner sur Apple Il Plus 48K avec 
une imprimante Epson MX'82. Si 
vous utilisez une autre imprimante. 
vous aurez peut-être à modifier les 
lignes 250 (qui sélectionne les carac- 
tères U.S.). 270. 480. 620 et 700. 


Si vous ne désirez pas avoir la liste 
imprimée dans le désordre. suppri- 








Mais. comment faire pour s'y retrou- mez les lignes 270 et 280. æ 
ver plusieurs mois après la création 
dun nouveau PLE? La méthode 
des essais est bien sûr efficace. mais Exemple de sortie dans l’ordre ASCII 
rustique et fastidieuse. J'ai donc écrit 
le programme suivant. qui affiche les <ESC> = * RECURSIF * 
caractères tapés après la touche ESC ESC CCE) = C(G)C(G)CCX) 
et leur signification, dans l'ordre où ESC ! = ?TAB(20-LEN(2YS)/2) 
ils sont en mémoire. puis rangés par ESC “ = ?D$" 
ordre ASCII. ESC * = CALL-151  <RETURN»> 
Pour utiliser ce programme. chargez ee À = talus 
PLE. puis lancez le programme ESC 2 = MIDS( 
PRINT PLE.ESCAPE. ESC 3 = RIGHTS( 
ESC 4 = CHRS( 
e Le programme détecte l'absence ESC 5 = STRS( 
de fichier PLE en mémoire. ESC 6 = SPEED-= 
+ Puis vous demande le nom de ESC 7 = CALL 
votre PLE sur votre disquette. la ESC 8 = PEEK( 
date. et vous rappelle d'allumer ESC 9 = POKE 
votre imprimante. Cela fait. ap- ESC : = APPEND" 
puvez sur nimporte quelle touche. ESC < = OPEN" 
e Certains items sont suivis de <RE- ESC = = H=PEEK(36) :V=PEEK(37) 
TURN : ce qui s'affiche à l'écran ESC > = CLOSE" : 
est alors suivi d'un ‘retour cha- ESC ? = ?TAB( 
riot qui vous évite d'avoir à le ESC À = CATALOGD2  <RETURN> 
ne ESC D = READ" 
e D'autres items sont suivis de * ESC G = GOTO 
RECURSIF *. ce qui signifie qu'il . . 
nest pas nécessaire de retaper ESC H = FLASH: 
ESC pour obtenir de nouveau le ESC I = <ESC> D # RECURSIF * 
résultat désiré. Une application ESC J = <ESC> B +*« RECURSIF * 
évidente est disponible d'origine ESC K = <ESC> À * RECURSIF * 
sur l'Apple : ESC IL.J.K.M permet- ESC L = LIST  <RETURN> 
tent les mouvements du curseur ESC M = <ESC> C * RECURSIF * 
dans les quatre directions. ESC N = NEXT 
e Certains items. enfin. compren- ESC O = ONERRGOTO 
nent des caractères de contrôle ESC P = INPUT 
qui sont alors imprimés comme ESC Q = CATALOGD1 <RETURN> 
suit : C{X) correspond à CTRL-X. ESC R = RETURN <RETURN> 
ESC S = GOSUB 
Le programme est suffisamment do. ESC T = TEXT:HOME:SPEED=255:NORMAL:DS=CHRS(4)  <RETURN> 
cumenté pour être compris facile- ESC U = NORMAL: 
ment. Il suffit de savoir que les codes ESC V = INVERSE: 
ESC sont rangés en mémoire à partir ESC W = WRITE" 
de l'adresse 39858 ($9BB2). La liste ESC X = RESUME <RETURN> 
des codes se termine par 0. ce qui ESC Z = THEN 
10 REM MOMOMONON NON D D ND DE D D De D D De DE 18 REM NÉANSSSE TER NÉ TS 
11 REM * x 
12 REM * PASCAL FONTANIER * 100 TEXT : HOME : SPEED- 255: NORMAL :D 
13 REM * * $S =  CHRS (4) 
14 REM * PRINT PLE.ESCAPE * 110 INVERSE : PRINT * IMPRESSION DES 
15 REX fi * CODES ’ESC’ DU PLE PASCAL 
16 REM * VERSION 1.2 * FONTANIER - OCTOBRE 1983 === 
17 REM # : ZZIEZZSLILIZLZLEE===========2===222sSs: 
EE _ 
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60 





150 


160 


170 
180 
190 
200 
210 
220 
230 
240 


250 


260 


270 


280 


2930 


300 


310 
320 


330 


340 


350 


360 
370 
380 
330 
400 


410 


420 
430 


===": POKE 34,4 
*#x« PLE IN SYSTEM ? *#x 


Q = PEEK (1011) + 4: 
K (978) THEN 170 
PRINT CHRS (7); CHRS (7); CHRS (7) 

: PRINT : INVERSE : PRINT ‘#>** PL 
E N’A PAS ETE CHARGE ##*x': PRINT 
PRINT : NORMAL 
FLASH : PRINT ‘“CHARGEZ LE‘: PRINT : 
PRINT : NORMAL : PRINT “ PUIS RE 
CHARGEZ CE PROGRAMME‘: PRINT : EN 
D 
REM 


IF Q < = PEE 


*xx PLE EST BIEN PRESENT **+ 


NORMAL 
DIM S$(100) 
INPUT “NOM DE LA VERSION DU PLE 
; NOMS 
PRINT : PRINT : PRINT 
INPUT "DATE : ‘;DAS 
ADR = 39858: REM ADR CODES ESC 
N = N + 1: REM NOMBRE D’ELEMENTS 
PRINT : PRINT : INVERSE : PRINT ‘A 
LLUMEZ L’IMPRIMANTE ‘;: NORMAL : 
POKE - 16368,0: GET ZZS: PRINT 
PRINT DS"PR£1": PRINT CHRS (27): C 
HR$S (82); CHRS (O0): PRINT : PRINT 
: PRINT DS"PR£O": REM 3 CHRS = 
PRINT USA 
NOMS = NOMS + * “ + DAS:NO = LE 
N CNOMS) 
PRINT DS"PR£1": PRINT NOMS:"* 
DANS LE DESORDRE" 
FOR X = 1 TO NO + 25: PRINT ‘=" 
EXT X: PRINT : PRINT 
REM 


5: N 


**x*x ANALYSE DU CODE ’ESC’ xxx 


IF PEEK (ADR) = O©O THEN PRINT ‘“--- 
PRINT : PRINT : GOTO 480: REM T 
RI 
Y =  PEEK (ADR) 

IF Y < 128 THEN 390: REM FIN DE COD 
E 

IF Y = 155 THEN SS(N) = SS(N) + ‘“<E 
SC> ‘‘: GOTO 370 


IF Y > = 240 AND Y < 250 THEN Y = 
Y - 240:SS(N) = SS(N) + STRS (Y) 
: GOTO 370 


IF Y > 127 AND Y < 159 THEN SS(N) = 
SSCN) + “"C(" + CHRS (Y - 64) + 
“)": GOTO 370 
SSCN) = SS(N) + CHRS (Y) 
ADR = ADR + 1: GOTO 310 
REM 
“xx FIN DE CODE *##*# 


IF Y = 13 THEN SS(N)D = SSCN) + “ « 
RETURN>": GOTO 430 

IF Y = 127 THEN SS(N)D = SS(N) + 
* RECURSIF +“: GOTO 430 

IF Y < 26 THEN SS(N) = SS(N) + “C(" 

+  CHRS (Y + 64) + “) “: GOTO 43 
(e) 
SSCN) = SSCN) + CHRS (Y + 128) 
IF LEN (SSC(N)D) > S THEN IF LEFTS 


Ps ORMMENTE 
RE et 





7 
Fa 


AA 


e, 


47 
! 
& 

à 

à 


ho 





{SS(N),5) = “<ESC>" THEN SS(N) = 
"<ESC> = *x RECURSIF *'": GOTO 460 
440 IF LEFTS (SS(N),2) = “C(" THEN SS( 
N) = “ESC “ + LEFTS (SS(N),4) + 
MIDS (SS(N),5): GOTO 460 
450 SS(N) = “ESC “ + LEFTS (SS(CN),1) + 
MIDS (SS(N),2) 
460 PRINT SS(N)D:ADR = ADR + 1:N = N + 1 
: GOTO 300 
470 REM 


= + 


Mon + 


#xx TRI «xx 


480 PRINT DS$"PR£EO" 
490 FLASH : PRINT ‘“PATIENTEZ, S.V.P.,": 


INVERSE PRINT : PRINT “JE TRIE 
LES CODES PAR ORDRE A.S.C.I.I.": 
NORMAL 

500 M = N 

510 M = INT (M / 2) 

520 IF M = O©O THEN 620 

530 P = N - M:J = 1 

9540 I = J 

9909 LL. = TT, +.M 

560 IF SS(I) < = SS(L) THEN 590 

570 WS = SSCID:SSCI) = SS(L):SSL) = WS 

S80 I = I - M: IF I > = 1 THEN 550 

990 J = J + 1: IF J > P THEN 510 


**x*x IMPRESSION TRIEE *** 


620 PRINT DS"PR£1" 

630 PRINT NOMS;" 
T° 

640 FOR X = 1 TO NO + 24: PRINT ‘“=";: N 
EXT X: PRINT PRINT 

650 FOR X = 1 TO N 

660 PRINT SS(X) 

670 NEXT X 

680: PRINT sn esssss ss ss nesssesress 
pren “:? PRINT : PRINT “FIN DE ‘>; 
NOMS: PRINT : PRINT PRINT 

690 PRINT DS"PR£O" 

700 PRINT PRINT INVERSE : PRINT “UN 
DOUBLE ? (O/N) ‘;: GET 225 

710 NORMAL 

720 IF Z22$ = “O'* THEN PRINT : GOTO 620 

750 TEXT : NORMAL : CALL 38656: END 

65535 REM 


PASCAL FONTANIER 
PRINT PLE.ESCAPE 
OCTOBRE 1983 


DANS L’ORDRE ASCI 
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Contrairement à ce qu’affirme Olivier 
Herz dans le Courrier des Lecteurs 
du numéro 10 (je ne suis pas peu 
fier de le prendre en défaut), il est 
possible de tracer des cercles sans 
calculer de sinus ni de cosinus. Le 
principe est le suivant : 


Si les deux suites de nombres X{n) et 
Y{n) sont définies par récurrence par 
les formules : 
X(0)=R (par exemple) 

(0)=0 
Y(n+1)=Y{(n)+exX{n) 
X(n+1)}=X{(n)-exY(n+1) 


les points de coordonnées X{n) et 
Vin) s'inscrivent sur une  ellipse 
d'équation : 

XxX + exXxY + YxY = RxR 


Il suffit de donner une petite valeur à 
e pour que l’ellipse soit indiscernable 
d'un cercle. L'intérêt de cette mé- 
thode vient de ce qu'elle est stable : 
les erreurs de calcul ne s'accumulent 
pas. 


Pour des raisons évidentes, j'ai choisi 
la valeur e=1/256, qui donne un ex- 
cellent résultat au point de vue gra- 
phique, mais peut-être pourrait-on 
accélerer un peu le programme en 
prenant e=1/128 ou 1/64? Je ne 
suis pas un spécialiste de l’assem- 
bleur; essayez donc vous-mêmes si le 
coeur vous en dit Dans le même 
ordre d'idées, la routine actuelle 
n'accepte que les centres sur l'écran, 
et les rayons inférieurs à 256... 


Vous trouverez ci-après, comme sur 
la disquette d'accompagnement de 
ce numéro, le programme source 
CERCLE en DOS Tool Kit, la ver- 
sion code CERCLE.OBJO et un pro- 
gramme de démonstration en Basic. 


C 
Programme CERCLE 
DOS ToolkKit 
1 RAYON EQU $300 
2 CX EQU S$301 
3 CY EQU 5303 
4 COS EQU 56 
S SIN EQU 58 
6 PLOT EQU Sr457 
7 »* 
8 * 
9 ORG 5304 
10 * 
11 * 
12 INIT LDA RAYON 
13 STA COS+1 
14 LDA #$0 
15 STA SIN+1 
16 STA SIN 
17 STA COS 
18 JSR ECRIS 
193 * 
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Tracé rapide de cercles 


VARY 


VARX 


T1 


ECRIS2 


T7 


T6 


T8 


ECRIS2 
CY 
SIN+1 
RETOUR 


CXx 


Dominique Bernardi 


78 TAX 

73 PLA 

80 JSR  PLOT 
81 JMP RETOUR 
82 TS TAX 

83 PLA 

84 LDY CX+1 
85 BEQ RETOUR 
86 DEY 

87 JSR PLOT 
88 RETOUR RTS 


CERCLE. OBJO 


0304- AD 00 65 85 

0308- 07 A9 00 85 09 85 08 & 
0310- 06 20 35 03 18 AS 08 65 
0318- 07 85 08 90 05 E6 09 20 
U320- 35 03 58 À5 06 ES 09 85 
0528- 06 BO €9 C6 07 20 35 03 
0S30- A5 07 DO EO 60 AD 03 05 
0338- 18 65 09 BO 07 C9 CO BO 
0340- 03 20 4C 03 38 AB 03 05 
0348- ES 09 90 49 48 AD O1 03 
6350- 18 65 07 BO 12 AC 02 05 
0358- FO 04 C9 18 BO 19 AA EB 
6360- 48 20 57 F4 4C 77 03 AC 
0368- 02 03 DO 0B C9 18 B0 07 
0370- AA C8 68 48 20 57 F4 38 
0378- AD 01 03 ES 07 90 OB AC 
0380- 02 03 AA 68 20 57 F4 4C 
0388- 95 03 AA 68 AC 02 03 FO 
6390- (4 B8 20 57 F4 60 


Programme 

CERCLE DEMO 

10 DS = CHRS$ (4): PRINT 
D$;"BLOAD CERCLE. O0 
BJO"* 

20 HGR2 : HCOLOR= 3: PRI 


NT CHRS (7); 
30 FOR X = O TO 279 STEP 
35 
INT (X / 256):XxL 
= X - 256 *x XH 
36 POKE 769,XL: POKE 770 


33 XH - 


40 FOR Y = O TO 191 STEP 


45 POKE 771,Y 
60 FOR R = 2 TO 200 STEP 
40 

7Q POKE 768,R: CALL 772 

80 NEXT : NEXT : NEXT 

100 PRINT CHRS (7);: GE 
T AS 

110 TEXT : 


END 











La micro-informatique au Japon 


Olivier Herz 




















Le développement de la micro-infor- un générateur de caractères et à un choix de kanji dont on tire 
matique au Japon prend l'allure une commutation kana/romaiji (ro- celui cherché. Les logiciels de trai- 
d'une explosion. Le marché, quasi maji est notre alphabet, parfois uti- tement de texte tournent avec un 
inexistant il y a un où deux ans, éVO- lisé pour écrire certains mots): tel DOS. Au Japon, c'est une ré- 
lue de manière exponentielle. e pour les ordinateurs profession- volution ! 
: nels, le kanji est intégré au sys- 
sa Les LRIReINS tème d'exploitation, c'est-à-dire Tout ceci explique les efforts considé- 
Æ À proprement parler, il y a très peu que l'on rentre les mots en sylla- rables portés par le Japon en matière 
de magasins exclusivement consacrés baire hiragana et que le DOS offre de ROM et RAM (on en est au mé- 
à l'informatique, mais chaque maga- 
sin d'articles électroniques possède : p : 
Æ un rayon TU.vidéo, un rayon calcu- Marque Type  Microprocesseur ROM RAM Disquettes DOS Prix 
Æ  latrices, un rayon Walkman... et un EE | 
5 rayon micro-informatique. NEC N5200 8086 EMHz 1 256K 1#6Gp.  FIDOS 25200 
Les trois quarts de ces magasins sont MC  PC100 8085 7HHz 32K 128K 1 + 720K #S-D0S 14400 
ET CE 
1 voire centaines. NEC PCB8Gi PD780C 4MHz 128K 2 7 ? 7 
En gros, les ordinateurs sont classés SHARP à 1808 az EX GAK Cascetèes } 4320 
D SHARP #12200 2809 AMz 4K G4K Ootiont  / 4608 
e les pasocom (personnal compu- k : re de, 
ters) destinés à l'usage domesti- SHARP M25500 8086 EH: IEK i28K i # 320 #S-005 et 10368 
que: Pocket PCI245 CMOS bits Zik 2% Î CP/A 86 B4& 
e les wordpro (word processors) à Pocket 2Ci255 CROS dbits 24K10,2K Î 17% 
usage professionnel. Pocket FCI401 CMOS Bbits  40K à.2X / 1080 
Il va sans dire que les ordinateurs Pocket RCI501 CCS Bbits 16K B.5K / 2340 
étrangers sont quasiment absents : ER 
parmi les ordinateurs exposés, il y a EUJIGTU FM 7 6809 Eh &äK BK 1 + 220X CP/M 80 ou 4536 
moins de trois pour cent d'Apple, et ; 
encore, jamais en état de marche | F IBOA 4MHz usb 
pour démonstration: quant à IBM. il FUJISTU FA ii BC88 EMHz ëK 12EK Î Li 32% CP/# 80 ou 3720 
n'utilise pas les circuits de distribution 6809 2MHz 86, MS-D0S et 
mentionnés ci-dessus, mais les 1800 4Mz UCSD, 5-9 olus 
“Computerland”. Ceci n'a rien e ’ | ; | 
d'étonnant, Apple et IBM étant à peu FUJISTU FH X Z80N 3.58MHz  15K 16K Cassettes 1800 
près au prix français (voir ci-dessous | l 
les prix des ordinateurs japonais). CASYS ? 7 9 {drive Tr, texte 27000 
Le langage HITACHI Hi 280A &oK 32 Cassettes © / 2268 
La langue japonaise utilise un sys- eee 
LE M LP TOSHIBA PASORIA 18  Z80A SK GiK Cassettes © / 2376 
Iphabet bi : mi 
CeDS AIRRaËRE DNS (ana) TOSHIBA PASOPIA 7  ZBOA äMHz  1BK BK Cassettes  / 4284 
e le katakana, qui sert à écrire les D DS te een CR 
mots d'origine étrangère, et que u RS ; à 
les lecteurs de Pom's connaissent ANON  V-10 ZB0A 5. 58MHz © 32K 16K Cartouches / 1980 
bien (voir HAIFA Pom's 5); ES 
e le hiragana, qui sert à écrire les NATIONAL CF 200 3 7  32K Cartouches / 1980 


terminaisons grammaticales, les SE — 
Le CKI IF 800 BOB EMz 7 256K 2 flopoies  MS-DDS ? 
| c 








Il y à aussi des idéogrammes d'ori- 








gine chinoise (kanji) qui servent à EPSON HC 20 ? 7? Microcass, / 5760 
écrire les racines des noms, verbes, EFSON EC 10 2 7 7 ? CF/H 7 
adjectifs. et dont on ne peut se pas- 
ser, compte tenu du très grand nom- CASIO FB-3000 BOBE EMHz 7 {28K 7 #S-D0S 5400 
bre d'homonymes. à ù 
Cet état de fait pose un énorme pro- GANYC MBC-55 BOBE 3 128K 7 XS-D0S, CP 6408 
blème au niveau du software de RE 
base, qui peut être résolu de la façon SANYO HBC 200 180R 4H | 1 1 floppy CP/H 16200 
ane: Angie //e {prix au Japon, à titre de comparaison) 13608 
e pour les ordinateurs bas de é Lan un . : 
gamme, on peut écrire en kana Le tableau a été calculé avec le taux de change : 1 000 vens = 36 FF 
(généralement katakana) grâce à Certains prix n’ont pu être découverts par Olivier Hertz, d’où les “?” 
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gabit sur une puce), la recherche 
d'un kanji se faisant actuellement en 
partie sur disquette. 


Il va sans dire que le code ASCII ne 
marche pas dans uné telle situation: 
on définit un code sur deux octets. 


Livres et revues 


Chaque ordinateur où presque a sa 
revue et ses livres (je n'ai pas vu de 
revue consacrée à l'Apple, seulement 
quelques livres) et il est étonnant de 
constater que les livres américains 
sont quasiment absents. Pour les 
trouver, il faut chercher dans les li- 
brairies ayant des rayons ‘étranger’. 
Il y à en outre quelques revues d'in- 
térêt général, avec articles et publici- 
tés. 


Imprimantes 


Il n'y a pas tellement plus d'impri- 
mantes qu'en France. On retrouve 
toujours les mêmes  (Seikosha, 
Epson, Oki, NEC..), mais souvent 
habillées d'une autre marque : celle 


de l'ordinateur avec lequel est vendu 
l'imprimante. 


Ordinateurs familiaux 


C'est la pléthore: on en trouve à tous 
les prix, y compris des seize bits aux 
ns graphiques exceptionnel- 
es. 

Le Sinclair QL et autres n'ont plus 
qu'à trembler (voir le tableau ci- 
joint). 


Ordinateurs 
professionnels 


Là aussi, il v a pléthore de modèles 
seize bits (avec 68000, 8086...) fonc- 
tionnant sous CP/M 86, MS-DOS... 
Le problème est que je n'ai pas en- 
core trouvé de compatible IBM, ce 
qui serait très sympathique, compte 
tenu des prix. 


IBM 5550 


Cet ordinateur, fabriqué au Japon 
par IBM-Japan, a un succès extraor- 


dinaire auprès des sociétés, bien qu'il 
soit très cher (près de 100.000 F 
avec trois drives). 


Construit autour d'un 8086, il pos- 
sède deux systèmes d'exploitation : 


@ le premier sert uniquement au trai- 
tement de texte en japonais: 


e le Nihongo DOS, enfin, ressemble 
au MS-DOS pour les mots-clés, 
mais possède en outre une 
conversion kana/kaniji. 

Sous ce système, on peut faire 
tourner des langages (Basic, Pas- 
cal, Fortran, avec affichage des 
messages en japonais si néces- 
saire), et des logiciels comme Mul- 
tiplan, Muititool Chart (graphi- 
ques), Multitool File (Data Base)... 


Je n’en dirai pas plus, les lecteurs in- 
téressés par les détails pouvant se re- 
porter à l'article paru dans la revue 
Byte (novembre 83) : "Big Blue goes 
Japanese”. = 





Imagol s’est fait depuis longtemps 
déjà une place un peu particulière en 
devenant le champion du MEM/ 
DOS, un système d'exploitation par- 
ticulièrement adapté à la gestion de 
fichiers sur Apple (voir "La carte 
MDOS 6502 à l'essai”, Pom's No 
4). 


Imagol lance maintenant, toujours 
dans la famille MEM/DOS, un nou- 
veau service: MEM/TERM, logiciel 
de communication transformant un 
Apple en terminal d’un autre Apple. 
La communication peut se faire par 
ligne directe, ou par l'intermédiaire 
d'un modem sur une ligne téléphoni- 
que. Notre but ici est de vous pré- 
senter sa genèse et les projets de dé- 
veloppement. 


Les réalisations 


MEMTERM est né avant tout d’une 
constatation : MEM/DOS est surtout 
répandu dans les PME et les SSCI 
(80% des installations se trouvent en 
province). L'isolement géographique 
de nombreux utilisateurs a conduit à 
leur offrir un service de télé-mise au 
point et de télémaintenance des logi- 
ciels. 


Dans le cas d'installations multipostes 
(fréquentes sous MEM/DOS), les dia- 
gnostics de dysfonctionnement peu- 
vent parfois s'avérer délicats : MEM/ 
TERM s'est alors vu doter d’une 
fonction de RUN” à distance per- 
mettant le test des fonctions de l'ins- 
tallation réelle de l'utilisateur. Sous 
MEM/DOS, les masques sont stockés 
indépendamment des programmes, 
ce qui permet de ne pas les trans- 
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Pom’s a vu MEM/TERM 


mettre. Ils sont dupliqués sur l'instal- 
lation du ’mainteneur”, et seules les 
informations utiles transitent par les 
lignes de communication. 


En “prime”, MEM/TERM permet 
aussi d'exécuter un programme à 
distance chez l'utilisateur lui-même, 
par exemple des transactions en 
temps réel sur un poste dans la jour- 
née, et une exploitation en temps dif- 
féré sur un autre poste (toujours en 
ne transmettant que les données 
utiles). 


Les projets 


La première voie de recherche vise 
une amélioration du produit de base, 
en le dotant d'un système de protec- 
tion permettant d'utiliser MEM/TERM 
avec CERTAINS programmes et fi- 
chiers, mais empêchant de le faire 
pour d’autres, logés sur le MEME 
disque (ceci en vue d'assurer la 
confidentialité de certains fichiers et 
traitements). 


La seconde voie, consiste à créer une 
sorte de ‘banque de démos” éclatée, 
les divers abonnés à ce service (re- 
vendeurs notamment) pouvant de 
leur poste utiliser à des fins commer- 
ciales les ‘’démos” proposées, en 
particulier par des producteurs ou 
distributeurs de logiciels. 


La troisième voie est la création d'un 
réseau avec un serveur et des Apple 


Guy Lapautre 


(en ‘concurrence avec Minitel). 
Toutefois, d'autres solutions possibles 
sont à l'étude, notamment celles in- 
cluant des Minitel dans le réseau. Af- 
faire à suivre. 


Coût du service 


MEM/TERM est-il un service coû- 
teux ? Rappelons tout d'abord qu'il 
ne fonctionne que sous MEM/DOS, 
et le plus souvent sur des installations 
relativement musclées. Les prix qui 


suivent ne comprennent pas l’acqui- 
siton du MEM/DOS. 


1) Installation simple pour télémain- 
tenance : 5.000 F environ pour le 
modem et la carte Super Série, plus 
1.000 F pour le logiciel, soit un coût 
total d'environ 6.000 F HT. 


2) Communication entre deux Apple 
chez l'utilisateur: l'installation  ci- 
dessus en double (1 des modems 
avec porteuse) et 1 logiciel à chaque 
extrémité, soit environ 12.000 F HT. 
Par contre, si la distance est courte, 
au maximum 100 mètres sans ampli, 
le coût est d'environ 4.500 F HT, 
plus celui d'un câble 3 brins entre les 
postes. 


Pour tous renseignements, télépho- 
ner à Monsieur Ratié, Imagol, 1-5 
rue Gutenberg, 75015 Paris - Tel 
577.59.39,. 

# 
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par Jean-Michel dégo 
Cet ouvrage présente l'analyse et la 
programmation des problèmes de la 
paie et des charges salariales : fichiers 
de personnel, calcul des cotisations, 
élaboration d'un bulletin .de salaire 
avec congés payés. En fin d'ouvrage 
# à la tenue d'un cahier des 
charges salariales tel qu'il peut se pré- 
senter dans une petite entreprise. At- 
tention : beaucoup de simplifications 
ont été apportées par rapport aux si- 
tuations très diverses rencontrées par 
les professionnels de la paie 


Le livre : 136 pages - 110,00 FF 
La disquette : 195,00 FF 





par Bernard Sulmon 

Sont traités dans ce livre : l'analyse des 

coûts marginaux, le calcul de seuils de 

rentabilité, le Direct Costing, le calcul 

des ratios ou du Fond de Roulement | 
minimum, la rentabilité des investis- 

sements et la gestion des stocks. Chaque ! 
programme est proposé avec un 

exemple d' application 

Le livre : 156 pages - 100,00 FF 

La disquette : 195,00 FF 


UVEAU 
par Hervé Thiriez NO 


Multiplan est un progiciel qui permet 
de gérer plusieurs tableaux simultané- 
ment: cet ouvrage sera POUr les pos- 
sesseurs d'ordinateurs Apple 11 Plus ou 
{fe un véritable guide d'utilisation de 
Multiplan grâce à des exemples pro- 
gressifs et à de nombreux cas d'appli- 
cation (gestion de portefeuilles, de 
copropriété. feuille de paie, impôts, 
tableaux de bord, etc 1. 
Le livre : 216 pages - 100,00 FF 
La disquette : 195,00 FF 


par Hervé Thiriez 

Après une présentation progressive du 
modèle Visicale, l'ouvrage étudie de 
nombreux cas d'application: feuille 
d'impôt, gestion de copropriété, paye, 
facturation... permettant d'introduire 
les différentes instructions et astuces 
d'utilisation. 

Le livre : 176 pages - 90,00 FF 

La disquette : 195,00 FF 


-tome 1 - tome 2 
par Serge et Gérard Liilio par Serge et Gérard Liilio 
Voici un ensemble complet de pro- Ce second tome contient trois Pro- par Jacques Boisgontier 7 
grammes de Comptabilité sur Apple Il grammes complémentaires des pro- Pour apprendre progressivement la 
adapté au Nouveau Plan Comptable, grammes de comptabilité du tome 1: programmation des applications utili- 
sant les fichiers l'ouvrage commence 
cise et illustrée | 


par une présentation con 
des comr..andes du Système d' Exploi- 
tation Disque et des instructions du | 


* visualisation graphique midimension- 
nelle des recettes el dépenses avec 
calcul des ratios. - tableaux des amor- 


pour petites entreprises. professions 
libérales, artisans. commerçants. On 


y trouve des programmes permettant 
l'édition des livre-journal, grand-livre. tissements. - calcul d'impôts. ainsi 
balance. bilan: la possibilité d'éditer qu'un programme de comptabilité gé Basic Applesoft. Les instructions des 1 
les livres de banque. de TVA, de re- nérale pour les utilisateurs de disques fichiers séquentiels et à accès direct sont 
ensuite décrites ainsi que leur utilisa- 
tion. Des méthodes pratiques. souvent 





cettes, ainsi qu'un programme de dé- 8 pouces. disques durs ou d'une seule 
tection des erreurs de frappe Capacité unité 5 pouces 1/4. 
du système : compte à 6 chiffres, 400 Le livre : 144 pages -110,00 FF 


lignes par plan. . 
Le livre : 184 pages - 120.00 FF La disquette : 195.00 FF 
La disquette : 195,00 FF 


mal connues. montrent comment utili- 
ser au mieux des fichiers à accès direct: 
accès indexé, liste inverse. Une vingtaine 
de programmes illustrent l'utilisation de 
ces techniques 

Le livre : 176 pages - 90,00 FF 
La disquette : 195,00 FF 



































































































Bibliothèque sc ientifique 


en Pascal 

par Hervé Haut 
Les procédures proposées dans cet 
ouvrage sont conçues pOur être implan- 
tées dans le System Library du langage. 
L'utilisateur disposera d'une biblio- 
thèque enrichie. permettant une réso- 
lution aisée et pertormante d'un gran! 
nombre de problèmes mathématiques 
et statistiques souvent rencontrés dans 
les programmes scientifiques. 

Le livre : 152 pages - 90,00 FF 
La disquette : 195,00 FF 


Modèles pratiques de décision 
Tome ! 
par Jean-Pierre Blanger 

Cet ouvrage vise l'automatisation du 
processus de la prise de décision. Les 
différentes techniques exposées sont 
complétées d'un exemple et d'un pro” 
gramme en Basic pour permettre au 
lecteur une rapide maîtrise des modèles 
présentés et leur intégration à de nom- 
breuses applications {gmulation, gestion. 


intelligence artificielle... 
Le livre : 144 pages - 90,00 FF 
La disquette : 195,00 FF 

Méthodes de © alcul numérique 


par Claude Nowakowski 
Tome 1 : Equations non linéaires. poly- 
nômes, calcul matriciel, interpolation. 
intégration et équations différentielles. 
pour chaque problème les différentes 
méthodes de calcul numérique sont 
étudiées. Ces algorithmes sont illustrés 
par un organigramme, Un programme 
en Basic et un exemple d'exécution. 
Le Tome 2 donne : des algorithmes plus 
élaborés ou plus subtils et aborde de 
nouveaux thèmes : approximation des 
fonctions. problèmes aux limites. équa- 
tions aux dérivées partielles 

Chaque algorithme est programmé en 


Basic et en Pascal 

Tome 1 : 144 pages - 90,00 FF 
Tome 2 : 184 pages - 110,00 FF 
La disquette pour les 2 tomes : 
195,00 FF 


Modèles pratiques de décision 


par Jean-Pierre Blanger 
Ce tome 2 de Modèles pratiques de 
décision offre un nouvel éventail de 
techniques visant l'automatisation du 
processus de la prise de décision. Cha- 
cun des vingt modèles présentés donne 
lieu à un bref exposé. un exemple et un 
programme en Basic standard 

Le livre : 176 pages - 90,00 FF 
La disquette :| 195,00 FF 


Le Basic et l'école 

par Jacques Gouet 

Le livre décrit un ensemble de pro- 
grammes en Basic, destinés aux pro- 
fesseurs, aux parents et aux élèves. 
Grammaire. mathématiques, conjugai- 
sons française. anglaise. sont autant 
d'exemples d'application qui font de 
cet ouvrage un Véritable outil d'ensei- 
gnement et d'initiation. à l'école où à 


la maison. 


Le livre : 192 pages - 120,00 FF 
La disquette : 195,00 FF 


pruisATIONS DE LORD Modèles d expression graphique 
AE - ( par Jean-Pierre Blanger 

) Cet ouvrage expose un ensemble de 
ntla mise en œuvre des 
possibilités graphiques des ordinateurs 
individuels. Il permet au débutant 
comme à l'amateur chevronné d'abor 
der la résolution de problèmes de plus 
en plus complexes {tracés d'ellipse. 
rotation de polygone. hachurage de 
surface...|. Les modeles d'expression 
graphique. écrits en Basic Applesoft. 
sont abondamment commentés et faci- 
lement adaptab 
teurs individuels. 


Le livre : 232 pages - 130,00 FF 
La disquette : 195,00 FF 


techniques visa 


Le Basic et l'école 


par Jacques Gouet 
Pourvu que vous possédiez un lecteur 
de disquette. vous allez pouvoir créer 
et gérer vous-même VOS Questionnaires 
à Choix Multiples et vos exercices. SUi- 
vre les notes obtenues. et concevoir des 
carnets de vocabulaire étranger. à l'école 


Mathématiques ei statistiques 
par Hervé Haut 

Cet ouvrage est un recueil de 16 logiciels 
de base (niveau supérieur] tant en ma- 
thématiques qu'en statistiques. Chaque 
problème traité comporte une intro 
duction numérique. un exposé de la 


technique de programmation utilisée. 

un organigramme détaillé et un pro 

gramme complet en Basic suivi d'un comme à la maison. 
Le livre : 160 pages - 110,00 FF 
La disquette : 195,00 FF 


exemple d'utilisation 


Le livre : 272 pages - 100,00 FF 
La disquette : 195,00 FF 




































Eye DIFFUSION 
- 77402 Lagny-S/ Envoyer ce bol ES 
e Lit gny-S/Marne Cedex accompagné #1 votre 2 DESIGNATION 
| ) phone (6) 006.44.35 réglement à rs 
es BENELUX P S.I. DIFFUSION 
, avenue de | ou, pour la Bel 
1180 Bruxelle: a Ferme Rose le Lux res gl et 
pt Le Arr sn SL'BENELUX par avion ajouter 8 FF 
Fat postale éléphone (2) 345.08.50 Hs Pie à (75 FB) par lvre 
“ie _ ISSE 
1701 FADOUrS Epäé | mur 
TA: (06 rent par chèque oint : 1 Paiementen FF ss pt 
Tél. : (037) 23.18.28 : aPSI Ales carte bleue VISA e de credit} 
CCP17.5684 lee SION uniquement} RE 
à neur à 50 FF 
aucanmis . D TER 0 A LT A 
Einc 120 FF > 925 F8 trs ml 
ÉUNEDRE Hiside Toc0 F5 - 4080 FS NOM piration 
Dr LU ri DISQUETTES a 
Tel 1514935 13 14 45 F = 1900 F8 61 #Fs rue __ = __ PRENOM : 
Code postal __ 5 
Ville __ 





MICRO-PERIPH 
ouvre les portes de votre @apple Ir 


MULTITECH 


clavier 

pour 

Apple 

(1516 FT.T.C.) 


ammables par l'utilisate 
s de fonctions définissables par l'utilisateur 
pour les comma en u DOS 
+ cordon de 1,60 m 
e LED pour ‘‘caps ' ‘num lock 
+ parfaitement adag ! Apple 


de la paramétrisation des 
d'application di aitement de texte 
oudure ni autre 8. 


ionnement aux 
tion aux 


ec notice détaillée 
pareil n'a pas encore obtenu son homologation par les P.T.T.} 


PROMOTION IMPRIMANTES 
Epson FX 80 F/T avec interface pour Apple 5 950 
Epson RX 80 avec interface 4 100 
Epson RX F/T 


NOUVEAU 
STYLO OPTIQUE {1 770 F T.T.C.) 


fonctionn roniteur monochrome, couleur où téléviseur couleur 
* résolution 280 » 19 

10 K disquette système qui confère 40 instructions graphiques 

fonction “’ZOOM' qui élargit jusqu'à sept fois 

six couleurs de base mixables 


applica  D.A.0., animation, enseignement, etc 


LES CARTES « PILOTS » 
U-TERM (1 490 F T.T.C.) 


carte qui vous donne 80 co 
es à la fo c Ê smoi e et la mémoire morte 
arte. Par exemple, les ca s français sc et minusei 
2] aractères anglo-saxon é e très de ime de corr 
APPLESOFT, PASCAL, CP;M PLEWRITER Il, etc 
U-Z80 (1 150 F T.T.C.) : son point fort est la vites 
les logiciels CP/M ou de Z80 
U-RAM16 (890 F T.T.C.):c ne Car èrer compatible 
INTEGER BASIC, PASCAL C: 
U-S232 (1 040 F T.T.C.) : t > série, vitesse variat entre 75 et 
19200 bauds. Cert rte contient e logiciel de F k ui permet 
de faire fonct r imprimante à 5a e optimale c le logi 
ciel de communication VISITERM 


it d'avoir deux jeux de 


4 MHz. Compatible 


Ouvert du mardi au samedi : 10h-12het14h-18h 
62, rue Ducouédic - 75014 PARIS (Tél. : 321.53.16) 


NOUVEAU 
PROMOTION DE LECTEURS DE DISQUES — 2 550 F T.T.C.) (Photo 8] 


+ 100 % compatible avec Apple Il + et e 
+ Mécanique Siemens Corp. av yStème à ans fin 
Electr f: quée en Grande-Bretagne 
Entièrement testé et garanti 12 mois 
Opération très silencieu etp e 
{Pour les ventes par correspondance, veuillez ajouter 40 F de port.) 


LES CARTES D'INTERFACE PRIXT.T.C. 
Carte Z 80, (4 MHz} {Photo 1] 930 
Carte 80 col. avec minu/majuscules français {Photo 2] 
car. inversés {Il +) compat., B Pascal, CP/M etc 850 
Programmateur d'Eproms (2758/16/32/32A/64] (Pho 
Carte RS232C 75-19200 baud compat, Visiterm, etc. (Photo 4 
Int/face parallèle type Centronics pour Epson, etc. (Photo 5) 
Interface pour lecteur de disques (Photo 6) 
Carte langage pour Apple [| + compatible Pasc 
Carte 80 colonne pour Apple / /e extensible à 64 K (Photc 
Carte 80 colonnes pour Ap e équipée de 64 K {Pho 
Carte 128 K pour |! + e pseud sque DOS, Pa 
Joystick avec auto-centrage et micro-adjust 
Ventilateur pour Apple | + ou Aple //e 
Alimentation 
Carte VIA 6522 avec 8 entrées/sorties e 
Carte horloge 
Carte IEEE-488 + câble 
Carte musicale 
Carte imprim. (Eps., Cent., NEC, Appl.) avec 64 K buffer 
Carte à entre rtie multiple A/D, D'A 
Carte 6809 bi )CESSEUT 
Carte convertisseur A/D 
Carte int/face para commutable (Epson, Apple, NEC, Centr.) 
Moniteur Zenith vert 
Moniteur Zenith e 
Carte Videx Ultraterm 
Accelerator 11 4 MHz de Saturn - tous les programmes tournent quatre 
fois plus vite sans modifi 
Accelerator 
SAM synthét 
Enhancer Il -b 


LES LOGICIELS PROFESSIONNELS 
DBASE || 
ASCII Express pro - logiciel de communication 
Z-Term Pro - logiciel de nunication Z 80 
P-Term Pro - de commun n Pascal 
Softerm 2 - émul, de terminal 
Magicalc 
Merlin Assembleur 

R OBTENIR PLUS DE 


OUS avons ur 


z pas à nous appeler 

ir lesquels nous 

pouvons donner un prix par phone et qui sont disponible: s un délai de deux 
semaines 


BON DE COMMANDE 


{Toutes nos cartes sont garanties 12 mois) 


À découper et e er à 
MICRO-PÉRIPH, rue Ducouédic - 75014 Paris - 
cevoir rapidement s pli recommandé 


QUANT TÉ DESIGNATION TOTALTT.C 


NOUS ACCEPTONS DES BONS DE COMMANDE ADMINISTRATIFS 





Une année, on change le manche. 
L'année suivante, la lame. Au bout 
de huit ans, c'est toujours le même 
couteau. Mais comme, entre temps, 
les techniques de fabrication du man- 
che et de la lame se sont beaucoup 
améliorées, vous avez un couteau 
qui peut toujours faire les mêmes 
choses. Mais tellement mieux! Et, 
ces techniques, elles n'ont pas fini de 
progresser. Alors, votre couteau, il va 
durer longtemps. Et puis, si deux ou 
plusieurs années de suite, vous ne 
pouvez ou ne voulez rien changer, 
quelle importance ? Vous continuez 
de vous en servir: quand vous met- 
tez une lame neuve, elle est deux 
fois meilleure. 


Le présent du //c 


Voici donc l'Apple //c (pour ‘’com- 
pact”}, énième version de l'Apple I, 
ce grand ancêtre, né dans un garage 
de Californie il y aura un siècle et 
demi: en informatique, on divise le 
temps par 20: 100 ans = 5 années 
de la vie d'un humain. Les différen- 
ces du micro avec ‘lhumain” sont 
d'ailleurs curieuses: plus il vieillit, 
plus il prend de la bouteille (pardon, 
de la puce) et plus il se dégraisse. 
Cet Apple //c ne pèse plus que 3,4 
kilos, lecteur de disquettes incorporé 
compris. 


S'il grandit, c'est par sa matière 
grise : 128 K-octets pour cet Apple- 
plume de 30 cms sur 30. Il n'en 
aura jamais davantage d’ailleurs puis- 
que - grande nouveauté - il a perdu 
au passage ces slots qui faisaient la 
joie des bricolos. Faut-il pleurer ? 
Non. Puisque son grand frère //e les 
conserve. Et qu'il est tout de même 
bien agréable de prendre son ordina- 
teur à la main, comme jadis papa 
son chapeau, pour aller passer le 
week-end ailleurs ou, tout simple- 
ment, le ramener le soir à la maison, 
après une journée studieuse sur les 
bancs de la fac. L'écran ? Bof. Pen- 
dant encore trois ou quatre mois, 
c'est vrai, il y aura un demi-pro- 
blème : il vous faudra emporter un 
moniteur, à moins que vous ne trou- 
viez sur place un poste de télé avec 
prise Péritel - puisque la carte Chat 
Mauve est intégrée (tiens, vous met- 
tez les slots à la porte, ils reviennent 
se coller derrière); il vous suffit de 
brancher le fil du //c sur le récepteur. 
Cela veut dire également que les 80 
colonnes sont là, d'origine. Un petit 
bouton bien visible, sur le capot cou- 
leur beurre frais, et vous passez à vo- 
lonté en 40 colonnes. Et vice versa. 


Pom's n° 12 


La famille Apple // 


Vers la fin de l’année - ou peut-être 
avant -, les choses vont changer: 
vous pourrez lui mettre un couvercle, 
au //c. Un couvercle pas comme les 
autres puisque, dès que vous l’ouvri- 
rez, il se transformera en...écran plat 
à cristaux liquides, 80 et 40 colon- 
nes. Or, le processeur du //c est bien 
un 6502 - mais avec un C, 65C02, 
le C de CMOS, bien sûr, cette tech- 
nologie qui diminue fortement la 
consommation d'énergie. Ce 65C02 
ajoute une vingtaine d'instructions 
aux 60 que possédait le 6502. D'où 
une mémoire plus rapide d'accès et 
une écriture de code plus rapide. Si 
donc vous ajoutez à la machine une 
batterie - d’origine, Apple-plume 
fonctionne sur 12 volts, avec un 
mini-transformateur - que se passe-t- 
il? Vous avez deviné : vous voici en 
possession d’un ordinateur portable, 
un vrai, l’un des plus légers de la ca- 
tégorie. 

Intéressant, cette fois, pour les week- 
ends que vous pouvez transformer 
en pique-niques. Encore faut-il que 
le Multiplan sur lequel vous avez 
peiné toute la semaine veuille bien 
aligner ses chiffres dans une clairière. 
Et là, il y aurait comme une histoire 
de souris qui a déniché un fromage, 
lequel fromage n'est autre que l’em- 
placement traditionnel de la vidéo in- 
versée de certains caractères secon- 
daires. Car le //c y a droit, à sa 
souris. C'est bien, c'est pratique ! 
Mais il faut bien la mettre quelque 
part. Alors, chez Microsoft, on donne 
un dernier petit coup de patte à une 
version de Muiltiplan qui mettra sa 
vidéo inversée ailleurs. Ceci est vrai 
pour la série des PFS en particulier, 
de tous les programmes qui font un 
usage étendu de l'inverse en général. 
A des degrés divers: prenez Apple 
Writer. Oui, la ligne du haut, celle 
qui affiche la mémoire et les titres, 
grignotée par des caractères souris, 
ressemble à un morceau de gruyère 
sur le //c. Mais - c'est mon cas, 
j'aime les écrans bien vides - on peut 
toujours s’en échapper avec deux 
fois Esc. Alors se produit l'inattendu : 
disparaît l'un des rares inconvénients 
du //e, sa lenteur de frappe qui me 
supprime environ un caractère sur 
cinq. La relation entre le clavier de 
l'Apple-plume et sa mémoire est dif- 
férente. La conséquence, c’est toute 
la rapidité de frappe retrouvée. D'au- 
tant plus surprenant, justement, que 
le clavier, d'apparence mi-chewing- 
gum mi-mécanique se révèle, à 
l'usage, plus mécanique que che- 
wing-qum. très agréable au toucher. 


Daniel Garric 


Cela dit, tous les programmes de jeu 
de type Zaxxon et autres arcadiens 
s'accomodent à la perfection d'Ap- 
ple-plume. Sans parler des jeux de 
rôle (”Sorcellerie” dans un château 
hanté, pour les amateurs de sensa- 
tions, cela doit avoir son charme) et 
des jeux d'aventures. Essayez le der- 
nier-né de chez Vifi-Nathan, "La 
Belle au Bois dormant”, tiré de 
Charles Perrault par des américains, 
traduit en français par des canadiens, 
dans un grand parc du Berry sur 
fond de tours et de créneaux, et je 
suis sûr que les enfants apprécieront 
le réalisme du conte. 


Notre //c, avec ses deux sorties série, 
modem et imprimante, par exemple 
(l'ImageWriter lui va comme un gant) 
et sa connexion pour un possible se- 
cond drive, est un petit bijou. Mais il 
y à gros à parier que, dans l'échelle 
de l'évolution Apple, il ne soit tel 
qu'en lui-même: l'éternité l'a déjà 
changé. Ce qui est très bien ainsi. 
Puisque son frère aîné, le //e, est, lui, 
en pleine mue. 


L'avenir du //e 


La souris arrive. Par le biais de Mou- 
sepaint, d'abord: c’est un pro- 
gramme de dessin et de peinture 
(vous l’auriez deviné) furieusement 
tié du Macintosh. Même avec les 
possibilités plus limitées de l'Apple 
Île, c'est une micro-révolution que de 
pouvoir utiliser un écran comme une 
feuille de papier. D'autant plus que 
les couleurs demeurent. Et que l’on 
n'a plus à manipuler de routines de 
sauvegarde ou d'affichage. 


Mousepaint, c'est l'avant-garde de 
tout un bataillon d'applications que 
l'on pourra très bientôt mener à la 
baguette - pardon, à la souris. 


Mais il y a aussi Jane, oeuvre et/ou 
chef d'oeuvre d’un petit génie de 20 
ans presque de chez nous puisque, si 
Howard Marks - c'est son nom et 
son prénom - est né britannique, il a 
fait ses études en France avant de 
partir les poursuivre aux Etats-Unis. 
L'Apple, il connaît depuis toujours 
(pour lui). Il a donc tout démonté, 
dans la machine. Et tout reconstruit, 
le DOS en tête, en utilisant une carte 
à enficher dans un slot, l'assembleur 
et ‘un peu”, dit-il, d'intelligence arti- 
ficielle. La première version, sur les 
64K du //e ou du II Plus, est intéres- 
sante : les commandes ont disparu, 
la souris se balade librement, les fe- 
nêtres s’éclairent, le tout-graphique 
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explose. Mais on est un peu à l'étroit 
dans la mémoire. Attendons la route 
ou la RAM 128K avant de se déci- 
der. 


De toute façon, il v a le choix. L’Ap- 
ple //e, pour les usages profession- 
nels, est comblé. Du ‘soft”, il lui en 
arrive de tous les côtés (voir l’article 
de Jean-Michel Gourévitch). Dont un 
nouveau langage, Modula II, version 
modulaire et bien plus intéressante 
du Pascal, mis au point par le génie 
helvète de Nicklaus Wirth soi-même, 
et distribué par Volition System, à 
San Diego. Ce Modula Il, dit-on, 
sera le grand rival du C (non, ce 
n'est plus pour compact”, cette 
fois). 


Le hard” ne se fait pas prier non 
plus, d’ailleurs, avec les cartes 
comme celle d’Act-Logo, en France, 
qui vous autorise à animer quelque 
32 sprites en couleurs sur votre 
écran. L'esprit est vraiment là, qui 
peut même déjà s'exprimer à haute 
et presqu'intelligible voix avec des 
synthétiseurs variés. 


Drôle de couteau” que cet Apple //, 
qui n'en finit pas de renaître avant 
même d'avoir rendu sa puce. Celle-ci 
finira bien par y passer, d’ailleurs. 
Mais pas avant d’avoir assuré, non 


seulement sa postérité, mais aussi, et 
peut-être surtout, son passé, un 
passé de 16.000 programmes envi- 
ron. Car il fallait bien qu'arrivât le 
processeur 16 bits entièrement 
compatible avec le 6502. Son matri- 
cule est quelque chose comme 
65816 et il vient tout droit d'une pe- 
tite boîte californienne spécialisée 
dans la technologie avancée. Qu'est- 
ce qu'Apple en fera, de son 16 bits ? 
Un Apple //x, comme on le mur- 
mure ? La ‘bande à Steve Jobs” 
l'avait jusqu'à présent plutôt snobé, 
le 16 bits, préférant passer directe- 
ment du 8 au 32 avec le 68000 de 
Lisa et du Macintosh. 


Mais justement: il y a eu rupture. 
Tandis que que le 65816 assure la 
continuité dans le changement. La 
tentation est grande de prendre 
appui sur le passé pour se propulser 
en avant. D'autant plus que la straté- 
gie d'Apple est d’une grande clarté : 
devenir, ou plutôt demeurer ‘lAu- 
tre”, un défi de Cinq lettres aux Trois 
lettres magiques, avec de grands 
pans d'une politique cohérente à ses 
8 et 32 bits: tout sur la communica- 
tion en série (adieu au parallèle), tout 
sur Pascal et ses modules (tant pis 
pour le Basic, lequel a d’ailleurs ten- 


dance à partir dans tous les sens). 
Beaucoup sur le soft. 


De là à vous dire ce que sera l'Apple 
/! dans un an, je m'y risquerai d’au- 
tant moins que Steve Wozniak, l’au- 
tre ‘père de l'Apple est entré en 
loge, comme on dit, quelque part à 
Cupertino, pour ‘travailler à quelque 
chose” dont rien ne transpire vrai- 
ment. Et ce n'est pas en regardant la 
concurrence que l’on en saura da- 
vantage puisque, par principe, Apple 
ne fait rien comme les autres. 


Mais on peut être certain que, du 
côté de San Francisco, il y aura du 
nouveau, dans la taille de l'appareil 
lui-même, la capacité de sa mémoire, 
de ses gestions d'I/O (n'importe 
quoi). D'autant plus que l'intelligence 
artificielle commence à rôder dans les 
parages de la micro. Ce nouveau 
produit aura pour fonction essentielle 
de projeter très loin le passé vers 
l'avenir. En clair : il y a très peu de 
chances pour que vos Apple IT Plus, 
{le ou fc deviennent stériles avant 
une bonne décennie. Le cercle de fa- 
mille va, au contraire, s’élargir. Vers 
1995, l'Apple Il sera toujours là, plus 
tout à fait le même, pas vraiment un 
autre. 





æ file 


Edit Data 







- Chart Ga 








| DAISUUWHEEL 





5 | DOT-MATRIH 
| Serigrder:l 
2: Plotor der: [À 
j € 


"10 


OTHER 







Format 
. 


ery 





New Series 


grrr 


Microsoft Chart for Apple Macintosh 


Exemple de Chart avec le Macintosh. 
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NLDR : tous les prix en francs indi- 
qués dans cet article sont TTC. Cha- 
que fois que l'adresse d’un fournis- 
seur nous est connue, nous 
l'indiquons en fin d'article. Inutile par 
conséquent de nous appeler pour 
demander les coordonnées des 
autres fournisseurs. 


On a sans doute enterré un peu vite 
le best-seller d'Apple et son “vieux” 
6502. Voici que non seulement l'Ap- 
ple se donne des airs de Macintosh 
(voir l’article de Daniel Garric), mais 
que les programmes, les interfaces, 
les périphériques et les gadgets arri- 
vent comme mars en carême. Oh, 
certes, cette marée fait des jaloux, et 
suscite même de vilaines vocations 
de copieurs. Ces derniers prendront 
toutefois garde après la mésaventure 
de Franklin, un fabricant américain 
de simili-Apple : ayant peu de chan- 
ces de gagner le procès que lui inten- 
tait Apple, il a préféré payer à la so- 
ciété de Steve Jobs la bagatelle de 
deux millions et demi de dollars, 
s'engager à ne plus copier les ROMs 
de Cupertino et même accepter un 
droit de regard des ingénieurs d'Ap- 
ple sur ses ordinateurs à venir .… Un 
arrangement qui freinera peut-être 
d'autres vocations et renforcera la 
prééminence de l'Apple Il, le seul, le 
vrai. Un autre évènement qui risque 
bien de conforter l'Apple, ses pro- 
grammeurs et ses fabricants d'inter- 
face, c'est le décollage laborieux du 
petit dernier d'IBM, le PC junior. 
Tandis que ce dernier restait sur les 
étagères des revendeurs, Apple ven- 
dait pendant le seul mois de décem- 
bre 110.000 //e. Alors, si ses pertec- 
tionnements sont si nombreux, il ne 
faut pas, à coup sûr, y voir l'effet du 
hasard. 


Car voici l'Apple accommodé à 
toutes les sauces : en plat de résis- 
tance, une nouvelle imprimante lui 
donne des capacités de traitement de 
texte bien augmentées; il peut main- 
tenant recevoir le célèbre tableau- 
gestionnaire de fichiers ”’1-2-3” de 
Lotus: ou dater et estampiller de 
l'heure n'importe quel fichier, 
comme un pro. Un programme le 
transforme en ‘processeur d'idées”, 
des mémoires virtuelles lui donnent 
des ailes. En guise de dessert, c'est 
l'utilisateur qui croit avoir des ailes, 
installé devant son écran-cockpit, aux 
commandes d’un Piper, grâce à l’un 
des meilleurs simulateurs de vol du 
marché. Et pour finir en musique, 
comme il se doit, un programme et 
une carte transforment l'Apple en 
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instrument musical. Et ce n'est qu'un 
début, l’année 1984 sera peut-être 
celle de Macintosh, mais à coup sûr 
aussi celle du //e. 


Hard : place à l'Apple 


Elle s'appelle ‘’Imagewriter”, débite 
les textes à 180 cps, au son d'un 
simple ‘crachouillement”. C'est la 
nouvelle imprimante matricielle d'Ap- 
ple. Bidirectionnelle, graphique, à 
traction et friction, elle utilise donc 
n'importe quelle forme de papier et 
même des liasses. Elle dispose de 7 
alphabets (dont le français), de 8 
jeux de caractères (avec notamment 
l'espacement proportionnel), d'un 
choix de taille des caractères, de pos- 
sibilités de soulignement et d'impres- 
sion en caractères gras. L'intéressant, 
c'est que l’on peut fixer un choix 
“habituel” (par défaut) grâce aux 
micro-interrupteurs de l'imprimante, 
mais que l’on peut aussi, grâce à des 
codes de contrôle, facilement modi- 
fier son choix en cours d'utilisation. 
Bien évidemment, l'Imagewriter per- 
met d'imprimer les textes saisis avec 
Apple Writer Il et Visicalc. L'impri- 
mante coûte moins de 5000 francs. Il 
faut encore lui rajouter un kit d'ac- 
cessoires vendu un peu moins de 
300 francs pour disposer des deux 
manuels (d’ailleurs détaillés et bien 
conçus) et d'un câble. Attention, 
l'Imagewriter est prévue pour une in- 
terface série, et non plus parallèle, 
comme l'ancienne DOT Matrix. 


Jean-Michel Gourévitch 


Côté interface, on peut donc acquérir 
la carte super-série d'Apple. MID 
propose déjà une autre carte ‘made 
in France”, munie de divers perfec- 
tionnements, dont notamment la re- 
copie d'écran haute résolution par 
commande directe: c'est la SG2E 
vendue un peu plus de 2000 francs 
(mais avec un câble). Aux Etats Unis, 
Practical Peripherals vient lui aussi de 
sortir une nouvelle carte série aux 
possibilités graphiques, disposant no- 
tamment de 27 commandes permet- 
tant le formatage du texte ou la reco- 
pie d'écran. C'est la ‘“SeriALL’”, 
vendue outre Atlantique 159 dollars 
(moins cher que la super-série d'Ap- 
ple). En attendant la nouvelle impri- 
mante laser qu'Apple pourrait com- 
mercialiser avant la fin de l’année. 


En temps et en heure 


C'est la nouvelle possibilité offerte 
par le ProDOS pour estampiller les 
fichiers. Voilà de quoi donner un re- 
gain de faveur aux cartes horloge. 
Les fabricants ne se privent d’ailleurs 
pas d'en tirer argument. Thunder- 
ware souligne lourdement qu'on 
mentionne sa ‘’Thunderclock” dans 
le manuel du ProDOS, Practical Peri- 
pherals affirme que sa “Proclock” a 
été prévue pour tous les DOS. et Ap- 
plied Engineering souligne que sa 
"Timemaster Il” est “officiellement” 
ProDOS, en mettant l'accent sur le 
prix (129 dollars). 


Toujours plus ! 


C'est de mémoire qu'il s’agit, ou plus 
exactement de mémoire virtuelle. 
Grâce aux pseudo-disques. Leur ca- 
ractéristique, c'est bien sûr de ne pas 
en avoir. De quoi? Mais, de dis- 
quette, bien sûr. La ”Flashcard” de 
Synetix contient jusqu'à 288K de 
mémoire, et est livrée avec les dis- 
quettes pour le Dos 3.3, le CP/M ou 
le Pascal. Et en prime les disquettes 
de ”Wordstar”’ (le tout pour 629 dol- 
lars). Un logiciel, le "Ramdrive //e” 
de Precision Software, permet d’utili- 
ser toute carte 80 colonnes étendue 
comme pseudo-disque (30 dollars, 
mais l'intérêt de la chose est réduit 
car ce sera précisémen un des avan- 
tages du ProDOS). Par contre, le 
"QuickLoader” de Southern Califor- 
nia Research Group permet, lui, de 
charger immédiatement des program- 
mes sans attendre le fonctionnement 
du lecteur de disquettes. Le miracle ? 
Les programmes ont préalablement 
été inscrits en PROM. Mieux, le DOS 




















est déjà livré sur une PROM de la 
carte, d'où la possibilité d'accès di- 
rect, par un simple CTRL-C Reset, à 
la fonction Catalog où à d’autres 
commandes comme le lancement du 
HELLO. La carte est aussi livrée 
avec le COPYA. Plus besoin de l’en- 
trer avant de recopier un pro- 
gramme. Le QuickLoader, d'une ca- 
pacité de 256K, est vendu 180 
dollars. 


Plus vite. .. 


Grâce au Spee Demon de M.CIT. 
Une carte accélérant l'Apple //e ou II 
Plus, qui travaille alors trois fois et 
demi plus vite. Il en existe d’autres. 
Celle-ci présente un plus” : son prix 
de 295 dollars. Qu'en adviendra-t-il 
si jamais on l’importe chez nous ? 


Communiquer 


Avec un modem bien sûr. Comme le 
Buzz Box vendu chez Micro Périph, 
lui aussi à un prix intéressant : 1100 
francs. Le hic ? Il n’a pas encore ob- 
tenu son homologation PTT. Cepen- 
dant, il fonctionne aux normes fran- 
çaises, à 300 bauds en full et half 
duplex, et est homologué en Grande 
Bretagne. 


Musique 


Transformer l'Apple en instrument de 
musique ? Avec la carte Mocking- 
board importée par BIP, l'Apple gé- 
nère des sons en stéréophonie, avec 
possibilité de jouer simultanément 6 
notes (avec un programme comme 
Music Construction Set). Et de nom- 
breux jeux (plus de quarante sociétés 
de logiciel l'ont adoptée) sont étudiés 
pour la Mockingboard, comme Zax- 
xon, Exodus, Maze Craze, etc. Atten- 
tion, les prix de la Mockingboard 
peuvent varier de 1500 à 2400 
francs selon les revendeurs. On la 
trouve notamment à la Fnac, à Mi- 
croshop et chez Sideg. 


Logiciels 
De la mémoire et du caractère 


Videx vient de sortir Ultraplan, un ta- 
bleur capable de tirer profit de nom- 
breuses cartes d'extension mémoire 
(jusqu’à 512K), ainsi que de la carte 
Videx, pour obtenir des écrans ayant 
jusqu’à 48 lignes et 128 colonnes, 
avec des caractères très lisibles et dif- 
férents niveaux lumineux pour mettre 
en relief telle ou telle partie du ta- 
bleau. 


Un plan de travail électronique 


C'est Think Tank. Un logiciel améri- 
cain dont on n’a pas fini de parler. 
Aux Etats-Unis, il fait fureur. Le ma- 
gazine A+, qui publie un banc d'es- 
sai de Think Tank dans son numéro 
de mars, cite certains de ses utilisa- 





teurs : Steve Wozniak, d'Apple, un 
avocat, le vice-président de la Chase 
Manhattan Bank, entre autres. 
Concrètement, Think Tank est un 
outil idéal pour mettre en forme ses 
idées. On y entre des titres, des sous- 
titres, des paragraphes, qu'on peut 
classer. Les idées brutes se structu- 
rent, s'organisent pour former un 
plan cohérent. Bien pratique pour 
établir le plan d’un article, les idées 
force d'un mémo. Un outil diable- 
ment utile à tous les professionnels 
de l'écriture. Mais les utilisations sont 
illimitées. Wozniak s’en est servi pour 
faire le planning d'un festival de 
rock, le banquier pour classer les 
notes prises au cours de réunions. Le 
programme peut même classer auto- 
matiquement par ordre alphabétique 
les sous-chapitres, numéroter les pa- 
ragraphes, etc. On peut ensuite im- 
primer sous diverses formes le résul- 
tat de son travail Ce programme 
écrit par Living Videotex nécessite 
deux lecteurs et un Apple Il pour 
fonctionner. Son prix outre Atlanti- 
que est de 150 dollars. 


Lotus, es-tu là ? 


À quand Lotus 1-2-3 sur Apple, de- 
mandait Pom's dans son dernier nu- 
méro ? Le voici! Il tournera sur un 
Apple Il Plus ou //e, à condition 
d'utiliser le lecteur de disquettes 
Rana 8060/2 (incorporant une carte 
MS-DOS et vendu, hélas, pratique- 
ment le prix d’un IBM PC...). Prix de 
Lotus : 495 dollars. Alléluia ? 


Des fenêtres 


En attendant, les amateurs de pro- 
grammes intégrés pourront se 
contenter de Jane (voir l’article de 
Daniel Garric). Jane est vendu en 
France par Ordinateur Express pour 
moins de 4.000 francs avec carte et 
souris. Il est en français : il a même 
été conçu dans notre langue. Coco- 
rico ! Aux Etats-Unis, un autre pro- 
gramme intégré commence à faire 
parler de lui, c'est Jack 2 (la nouvelle 
version d’Incredible Jack) de Busi- 
ness Solutions, permettant de faire 
du traitement de texte, des calculs ou 
des graphiques, sur la même page et 
sans changer de disquette. Avec im- 
pression de ce qu’on voit sur l'écran. 
Jack 2 n'a pas de fenêtres, mais dis- 
pose de dessins d’enveloppes qu’on 
peut ouvrir (50 dossiers simultanés 
maximum). À voir. 


Imprimer Visicalc en travers ? 


C'est possible avec un logiciel sud- 
africain, Sidewise, disponible par l’in- 
termédiaire de Pace Software Sup- 
plies en Grande Bretagne. Utile pour 
les tableaux larges, qui dépassent la 
plus grande largeur des imprimantes. 


NDLR : nous rappelons à cet égard 
que le programme Muiltiplan du Ma- 


cintosh possède d'origine la possibi- 
lité d'imprimer un tableau en travers 
si on le souhaite. 


Vol au dessus d’un nid d'Apple 


Après une bonne séance de travail, 
décollez aux commandes de votre 
Apple. Avec Flight Simulator Il de 
SubLogic (en vente notamment chez 
Sideg). On n'avait encore pas volé 
ainsi sur Apple. En couleurs. D'un 
bout à l’autre des Etats-Unis (le pro- 
gramme permet d'utiliser une soixan- 
taine d’aéroports, dont les pistes sont 
reproduites le plus fidèlement possi- 
ble, d’après des cartes aériennes). 
On peut définir soi-même les condi- 
tions de vol (heure, saison, nuages, 
force du vent), voler de jour ou de 
nuit dans un cockpit parfaitement 
équipé : VOR pour la radio-naviga- 
tion, ILS pour les atterrissages aux 
instruments, instruments numériques, 
horizon artificiel en trois couleurs, 
etc. Le programme est livré avec un 
manuel de 88 pages et quatre cartes 
de radio-navigation. Un simulateur 
subtil dont l'utilisation nécessite un 
doigté certain (Bruce Artwick, son 
auteur, essaierait actuellement de le 
faire certifier par la FAA, l'autorité 
aéronautique américaine). Que ceux 
qui ont réussi à poser leur Piper, sur 
la piste et en bon état, m'écrivent. Je 
ne suis pas encore parvenu à éviter 
le crash en finale... 


Adresses 


Apple Seedrin - av. de l'Océanie - 
ZA de Courtaboeuf - B. P. 131 - 
91944 Les Ulis Cedex - Tél (6) 928 
0139 

Applied Engineering - P. O. Box 
798 - Carrolton TX 75006 - USA 
Business Solutions - 60 East Main 
Street - Kings Park - NY 11754 - 
USA 

Living Videotext Inc. - 450 San 
Antonio Road no. 56 - Palo Alto CA 
94306 - USA 

MID - 96 bd. Richard Lenoir - 
75011 Paris - Tél 357.82.30 

Micro Periph - 62 rue Ducouédic - 
75014 Paris - Tél 321.53.16 
Ordinateur Express - 3 rue de Pe- 
louze - 75008 Paris - Tél 522.15.15 
Pace Software Supplies - 92 New 
Cross Street - West Bowling - Brad- 
ford BD58BS - UK 

Practical Peripherals - 131245 La 
Baya Dr. - Westlake Village - CA 
91362 - USA 

Sideg - 170 rue Saint Charles - 
75015 Paris - Tél 557.79.12 
Southern California Research 
Group - P. O. Box 2231 - S Goleta 
CA 93118 - USA 

Synetix - 10635 NE 38th Place - 
Kirkland WA 98033 - USA 
Thunderware Inc. - 44 Hermosa 
Av. - Oakland CA 94618 - USA 
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Je me suis servi du logiciel Omnis 
{gestion de fichiers) une dizaine de 
fois de manière satisfaisante. Hier, je 
le remets en route et voilà que l'Ap- 
ple devient littéralement ‘fou. Il n'v 
a plus d'affichage possible. des carac- 
fères désordonnés et inversés appa- 
raissant à l'écran. Et plus aucun logi- 
ciel ne fonctionne. Ceci m'étonne 
d'autant plus que. lors du dernier 
emploi, tout était parfaitement nor- 
mal. Qu'en pensez-vous ? Pourriez- 
vous me dire ce qui se passe ? 


Avant mis en route l'autotest de l'Ap- 
ple /’e, j'ai vu apparaître à l'écran 
‘Kernel OK" puis, l'avant recom- 
mencé, est apparu ‘RAM suivi de 
quelque chose d'incompréhensible. 
puis "ROM" 

Jean-Albert Jouve - BP 4169 - Tana- 
narive - Madagascar 


Après des essais intensifs sur Apple 
‘le d'Omnis dans toutes ses options, 
il nous a été impossible de provo- 
quer une panne analogue à celle que 
vous décrivez dans votre lettre. Nous 
ne pouvons donc faire que des hy- 
pothèses. 


Ce genre de panne se produit parfois 
sous le système d'exploitation CP/M 
à la suite de fausses manoeuvres, en 
particulier quand on tente de “booter 
à chaud” (par CTRL-C) à partir 
d'une disquette ne contenant pas le 
système. Bien qu'Omnis soit écrit en 
Pascal, rien n'interdit de penser 
qu'une manoeuvre anormale avec 
les disquettes ait pu être la cause de 
vos ennuis. 


Une autre cause possible réside dans 
l'alimentation électrique de l'ordina- 
teur. Il arrive que des micro-coupures 
extrêmement brèves ne fassent pas 
décrocher complètement et produi- 
sent des résultats surprenants. Il en 
est de même avec certaines brusques 
sautes de tension. Si vous vous trou- 
vez dans des conditions d'alimenta- 
tion électrique instables, un régula- 
teur (ondulateur) pourrait PEUT- 
ÊTRE améliorer la situation. Même 
problème avec les décharges d'élec- 
tricité statique. Bannissez toute mo- 
quette au sol, et essayez d'avoir une 
bonne terre dans votre installation 
électrique. 


Enfin, il est arrivé également, y 
compris sous DOS, qu'une tempéra- 
ture de fonctionnement exagérée ait 
des répercussions bizarres. Ceci peut 
se produire, outre le cas d’une tem- 
pérature extérieure élevée, quand de 
nombreuses cartes sont installées si- 
multanément. Certaines cartes d’in- 
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Courrier des lecteurs 


terface imprimante, 80 colonnes ou 
MEM/DOS, ont en particulier ten- 
dance à se conduire en radiateurs. 
Vous pouvez fonctionner capot ou- 
vert (attention, vous supprimez alors 
l'effet de cage de Faraday du je, 
gare à l'électricité statique), ou instal- 
ler un petit ventilateur (il y en a de 
spécialement étudiés). 


Et puis.…..sauvegardez souvent une 
copie de vos fichiers. 





Contrairement à la réponse d'Olivier 
Herz au Docteur Selosse (Pom's 11 
page 69). il est assez simple d'aug- 
menter le nombre de titres du catalo- 
gue, au-delà de 105. J'ai d'ailleurs 
réalisé une disquette préparée pour 
recevoir 217 titres en face 1 et 161 
titres en face 2. Elle est facilement 
copiable par COPYA, et les fichiers 
Sont transférables par FID sans pro- 
blème. Les lecteurs de Pom's qui le 
souhaitent pourront en recevoir, 
après envoi d'un chèque de 45 
francs à l'adresse indiquée en fin de 


mon courrier, une copie sur disquette 
Maxell MD1-D. 


Voici comment il faut s'v prendre 
pour constituer une disquette à cata- 
logue étendu. Prendre tout d'abord 
un utilitaire permettant la lecture et 
l'édition directe de pistes/secteurs sur 
la disquette. Le catalogue est norma- 
lement rangé de $11-0F (piste 17. 
secteur 15) à $11-01. Au début de 
chaque secteur se trouve l'adresse du 
secteur suivant: on lit ainsi ‘00 11 
OC” au début de $11-OD, ce qui si- 
gnifie que la suite du catalogue est 
en $11-0C. 


Si l'on entre ‘00 10 OF” au début de 
$11-01, on indique au DOS que le 
catalogue se poursuit en piste 16. 
secteur 15. Il suffit de continuer ainsi 
autant que nécessaire. Bien entendu, 
après chaque modification, il ne faut 
pas oublier de recopier le secteur 
modifié sur la disquette. Il reste enfin 
à modifier la table d'occupation, 
pour indiquer au DOS que la piste 
$10 est occupée et éviter ainsi la 
destruction du catalogue lors de la 
sauvegarde de fichiers : mise à O des 
octets en position $78 à $7D de la 
piste $11, secteur $00. 


À l'inverse, on peut réduire la taille 
du catalogue pour sauver des pro- 
grammes importants. Cela permet de 
récupérer 13 ou 14 secteurs par dis- 
quette, soit plus de 3K Dès lors, 
après libération des pistes $00 à $02 
(si on ne met pas le DOS sur la dis- 
quette), une disquette peut contenir 
140K de fichiers. 


Alexandre Duback 


S. Thélier - SODEC - 1 rue de la Lys 
- 59253 La Gorgue 


Merci pour cette lettre intéressante. 
Permettez-moi par la même occasion 
de blanchir Olivier : j'avais complété 
le Courrier après son départ, et laissé 
son nom car il en avait traité la ma- 
jeure partie. 


1} Je tiens à faire profiter vos lecteurs 
d'une information que j'ai mis trois 
mois à obtenir. Avant la carte Chat 
Mauve et une imprimante Epson, j'ai 
eu la désagréable surprise de consta- 
ter que les logiciels écrits en Pascal 
{Omnis et Quickfile, et Pascal lui- 
même) refusent obstinément de re- 
connaître l'imprimante connectée au 
slot 1. Quelqu'un m'a finalement 
donné la solution : il suffit tout bête- 
ment d'enlever la puce située juste 
au-dessus du “T' de CHAT MAUVE 
(il s'agit d'un buffer), et ça marche ! 
Le plus extraordinaire dans cette his- 
toire est que l'absence dudit buffer 
ne change apparemment rien dans le 
fonctionnement de la carte. aussi 
bien pour ses fonctions graphiques 
que pour l'extension 64K. Apple et 
le Chat Mauve n'ont, paraît-il pas 
encore trouvé l'explication. 


2) Je tiens à vous féliciter par ailleurs 
pour la qualité de votre revue et le 
haut niveau des programmes que 
vous proposez. J'ai cependant eu 
bien des difficultés avec certains 
d'entre eux: je n'ai en particulier 
jamais réussi à faire fonctionner cor- 
rectement le programme de copie 
écran texte HCTOBJ (sur les dis- 
quettes à partir de la 7). Il n'imprime 
qu'une ligne sur 3. même si j'inhibe 
l'impression écran par un POKE 
1657.80. 


3} Une suggestion : j'aimerais des 
programmes utilisant les possibilités 
des cartes 80 colonnes (par exemple 
pour la gestion de masques, les 
menus à barre, les catalogues). C'est 
vraiment déprimant de revenir à ce 
vieil affichage étriqué en 40 colonnes 
après avoir travaillé sur Visicalc ou 
Apple Writer en 80 colonnes ! 


Jean-Pierre Januel - 5 rue Duperré - 
75009 Paris 


1) Nous vous remercions pour votre 
lettre au sujet de la carte RVB Chat 
Mauve. Nous avions en effet parlé 
du problème dans le Courrier du 
Pom's 10, page 72. 


2) Le programme de copie d'écran 
texte ne fonctionne hélas pas avec 








tous les modèles de cartes parallèles 
et d'imprimantes. Nous n'avons pas 
encore trouvé le moyen de le faire 
fonctionner de façon universelle, 

3) En ce qui concerne les cartes 80 
colonnes, on retombe immédiate- 
ment sur le problème suivant : elles 
utilisent en général des codes diffé- 
rents. On ne pourrait donc proposer 
des programmes que pour la 80 co- 
lonnes Apple //e ou Chat Mauve, qui 
sont en théorie gérées de la même 
façon, ce qui semble d'ailleurs peu 
évident vu les problèmes du Pascal 
avec la Chat Mauve et une Epson. 
Nous devons déjà tester les program- 
mes pour voir à chaque fois s'ils 
marchent sur Il Plus et //e! Si l'on 
devait tester avec des cartes 80 co- 
lonnes ou de multiples configurations 
d'imprimante et de carte, on ne s’en 
sortirait plus. 





Pom's paraît dorénavant tous les 
deux mois. Bravo ! Peut-on espérer 
une parution mensuelle ? Est-ce un 
manque d'articles ou une diffusion 
rop restreinte, ou encore la probable 
concurrence du “petit” frère Macin- 
tosh ou enfin la suprématie d'IBM 
qui vous empêchera de franchir le 
pas ? 

La lecture de POKESs à gogo (Pom's 
11) m'a fait découvrir quelques im 





perfections qui m'avaient échappé. 
Mea culpa. Je rectifie le tir. 

Adresse 48 : faire un POKE 48,C=x17 
avec C = code de la couleur GR (0- 
15). 

Adresses 55/56 et 57/58: le DOS 
remet automatiquement les ancien- 
nes valeurs. Il vaut mieux poker dans 
les adresses d'entrée/sortie du DOS 
(43603-4 et 43605-6). 

Adresses 60/67: avant l'appel de 
MOVE ou de VERIFY. le registre Y 
doit être mis à zéro. Pour réaliser 
ceci, faire précéder la série de 
POKES par un CALL -610. 

L'adresse du tampon utilisé par 
RWTS est donnée par POKE IOB + 
9, A/256 : POKE IOB + 8, À - 256 
x PEEK(IOB+ 9). 

Les POKES qui permettent d'activer 
ou de désactiver une carte d'exten- 
sion ne sont valables que si la carte 
est dans le port (slot) O0. De façon 
plus générale, il faudra faire POKE 
XXXXX + 16*S pour une carte insé- 
rée dans le slot $. 

Page 18 du Pom's 11: corriger les 
POKES permettant d'activer les 12K 
du bloc 1 : 

POKE 49288,0 (-16248) 

POKE 49289 0 (-16247) 

POKE 492900 (-16246) 

POKE 49291,0 (-16245) 


Roland Jost - 4 allée Spach - 67000 
Strasbourg E 


Erratum 


Dans un souci de présentation, nous 
avions ajouté au programme de 
Gilles Mauffrey (Pom's 11, page 71) 
des REMs (1 à 3). oubliant que le 
programme ne marcherait alors plus. 
Il faut donc éliminer ces remarques. 
qui d’ailleurs ne figurent pas dans le 
programme de la disquette d'accom- 
pagnement du numéro 11 


De nouveaux développements atten- 
dent les lecteurs intéressés par la mé- 
thode «Aliénor» parue dans le 
Pom's 11. Les personnes concernées 
peuvent contacter À. Guillez au 128 
avenue de la République - 75011 
Paris - Tél Labo MEDIMAT 329.79.26. 


Multiplan pour Apple 






Une légère confusion au moment 
de l'impression du livre « Multiplan 
pour Apple Il Plus et Apple //e » a 
| fait que le premier tirage 
comporte, en page 5, un Som- 
maire manifestement trop som- 
maire (une page seulement). Les 
acheteurs de cette première édi- 
tion peuvent envoyer à Pom's une 
lettre comportant une enveloppe 
timbrée à leur adresse et un mot 
demandant le sommaire détaillé : 
ils recevront gratuitement en re- 
tour de courrier ce sommaire en 
quatre pages. | 


| 
| 
| 
| 
| 
| 





EEE... LIÈLE.... LILLE.... LILLE 


m.b.d.c. 


Apple //e, Apple ///, Mac-Intoch, 


BFM 186. dragon, oric, alice, casio 


m.b.d.c. 


m.b.d.c. 


disquettes, Flexettes, 3M, Verbatim 
listing, rubans encreurs. 


le conseil, le matériel, les périphériques 


les logiciels, les consommables, 


m.b.d.c. le S.A.V. sur place. 


le Service Complet. 


eus m.b.d.c. 


172, RUE SOLFERINO. 59800 LILLE — TEL. (20) 57.91.87 
OUVERT DU MARDI AU SAMEDI DE 9h30 à 12h ET DE 14h30 à 19h 








Depuis que nous avons accès à un 
Apple, nous souffrons dès que nous 
en sommes éloignés. Pensant que 
cette étrange machine a fait d’autres 
victimes, nous venons de fonder un 
club pour les rassembler. Il est ouvert 
à tous, du débutant au docteur en 
informatique. 


CTRL RESET - Club Informatique - 
172 Bd. Haussmann - 75008 Paris 
Richard Chalet - Secrétaire Général - 
20 rue Nélaton - 75015 Paris 


Nous avons créé depuis quelques 
mois l'association Info-Maniaques. 
Son but est d'abord de fournir un 
lieu de réunion et d'échanges à des 


Courrier des clubs 


personnes qui ont en commun 
d'aborder ou d'approfondir les divers 
domaines de la micro-informatique. 
Très rapidement, des personnes de 
tous âges souhaitant recevoir une ini- 
tiation sont venues nous voir. Nous 
comptons actuellement 60 adhérents 
et chaque mois une dizaine de nou- 
velles adhésions. 


L'association met à la dispostion de 
ses adhérents divers matériels : 
Apple, Multitech MPF II, Jupiter Ace, 
Alice, Thomson TO7. 


Info-Maniaques - 62 avenue Paul 
Santy - 69008 Lyon - Tel (7) 
801.43.19 


Nos prochaines réunions sont les sui- 
vantes : ‘le point sur les tableurs”, 
animé par Hervé Thiriez le 16 mai 
avec présentation de Muiltiplan et 
Muitichart sur Macintosh; ‘les techni- 
ques graphiques” avec démonstra- 
tion de vision en relief, animation par 
sprites, découpage d'écran et incrus- 
tations, carte haute résolution 
10241024, le 20 juin. Les réunions 
ont lieu à 19H au 110 avenue du 
Général Leclerc, à Paris. 


Ma Pomme - 6 rue Paul Saunière - 
75016 Paris - Jean-François Duvivier 
(1) 558.05.78 le soir. 





The Apple House (how to compu- 
terize vour home using your Apple 
Computer) de John Blankenship, 
Prentice Hall - 66 Wood Lane End, 
Hemel Hempstead, Herts, HP2 4RG, 
Royaume Uni - 153 pages - $19,45, 


Voici un livre qui décrit comment 
concevoir un système qui fasse exé- 
cuter à votre Apple un ensemble de 
tâches liées à l'habitation telles que le 
contrôle de la sécurité, des lumières 
ou du téléphone. Une des originalités 
de ce système est qu'il accepte des 
ordres verbaux et réagit en fournis- 
sant une réponse du même type. 
Mais une certaine connaissance de 
l'électronique et l'achat de compo- 
sants sont nécessaires à la réalisation 
de tout ou partie du système. Cet 
ouvrage est très bien structuré et 
comporte en appendice les listings de 
tous les programmes. Il est possible 
aussi d'obtenir une disquette les 
contenant au prix de $12,50. 


Jean-Luc Boyer 


Exercices pour Apple Il, de Fré- 
déric Lévy, Editions du PSI - 148 
Pages - 90 FF. 


Il est agréable de voir que le listage 
de programmes n'est pas le seul but 
de ce livre. Bien poser le problème 
et réaliser une analyse sont considé- 
rées comme des étapes importantes 
et mises en valeur par l’auteur. De 
même, on apprécie beaucoup les 
programmes commentés d'une façon 
précise. Cet ouvrage comprend une 
première partie donnant les énoncés 
des exercices ainsi que leur analyse, 
la deuxième partie étant réservée aux 
programmes proposés comme solu- 
tions (en Basic). Les problèmes abor- 
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dés correspondent à quatre thèmes 
principaux (calcul, manipulation de 
tableaux, traitement de chaînes et 
graphiques). En conclusion, ce livre 
apporte une excellente formation à la 
programmation. 


Jean-Luc Boyer 


36 programmes Apple II pour 
tous, de Jacques Boisgontier, Edi- 
tions du PSI - 126 pages - 90 FF. 


Après un bref rappel des instructions 
graphiques spécifiques à l'Apple II, 
l’auteur fournit un ensemble de pro- 
grammes (en Basic) sur 3 thèmes dif- 
férents : l'éducation, la gestion et les 
jeux. Nous regrettons le manque 
d'explications pour certains program- 
mes, ainsi que le peu d'originalité 
des sujets traités, que l’on retrouve 
dans beaucoup d'ouvrages déjà 
parus. Malgré cela, il y a une bonne 
diversité dans le choix des énoncés. 


Jean-Luc Boyer 


Apple Graphics - Activities 
Handbook de Harold J. Bailey et J. 
Edward Kerlin - Prentice Hall Inter- 
national - 422 pages - $ 11.95. 


Ce livre est agréablement présenté, 
et sa pédagogie plaisante : tests de 
compréhension, exercices,  discus- 
sions, exemples. Il contient de très 
nombreux exemples de programmes. 
Nombre d’entre eux sont de bonne 
taille (allant jusqu'à plusieurs centai- 
nes d'instructions,. Le revers de la 
médaille est que, lors de la retrans- 
cription au clavier, il est presque im- 
possible de ne pas commettre quel- 
ques erreurs de frappe. Au niveau 
d'un apprentissage, c'est d'autant 


plus rédhibitoire que les résultats à 


Bibliographie 


obtenir ne sont en général pas dé- 
crits : il s’agit pour le lecteur d'exer- 
cer sa capacité de compréhension. 
Moralité : la disquette “optionnelle” 
(à $26) est de fait quasiment obliga- 
toire. 


D'une façon plus générale, pour un 
ouvrage consacré au graphique, 
celui-ci manque nettement d'illustra- 
tions. On peut aussi regretter un 
manque de distinction entre l’essen- 
tiel et l'accessoire. Deux exemples à 
l'appui de cette affirmation : 


@ les graphiques dits ‘’alphanuméri- 
ques”, créés en basse résolution à 
partir de chaînes de caractères, ne 
sont sans doute pas d'usage quoti- 
dien; c'est une ‘activité” parmi 
d'autres d'un ‘’module” basse ré- 
solution; 

® à l'inverse, il est d'usage courant 
d'utiliser les ”’shapes” en graphi- 
que haute résolution; or ce point 
n'est traité que dans un chapitre 
sur les techniques avancées. 


Mais l'ensemble est intéressant et 
l'on trouvera dans cet ouvrage de 
quoi satisfaire le débutant ainsi que 
le programmeur expérimenté qui 
souhaite encore progresser. Environ 
100 pages s'adressent au débutant. 
Les 100 pages suivantes abordent les 
techniques avancées, cependant que 
les 200 dernières pages sont consa- 
crées aux problèmes de géométrie 
plane, puis dans l'espace (c'est peut- 
être un peu trop). Quelques annexes, 
dont on peut fort bien se passer, 
complètent l'ouvrage. 


Guy Mathieu 
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Montant 
TTC 


e la disquette HAIFA Source! | au prix de 55 F la disquette (cf. Pom'’s n° 5) 
e le logiciel H-BASIC [_] au prix de 150 F (cf. Pom’s n° 8) 
e le logiciel MUSIC [_] au prix de 80 F (cf. Pom’s n° 10) 
e le Disk Manager [_] au prix de 450 F (cf. Pom'’s n° 11) 


e DBSTAG (CP/M) [_ | au prix de 450 F cf. Pom’s n° 11) 
e Disquette de jeux À [_] au prix de 80 F (cf. Pom'’s n° 12) ne 
e Disquette de jeux B [_] au prix de 80 F (cf. Pom’s n° 12) |" | 


e Recueil n° 1 de Pom’s (n° 1 à 4 
[_] avec ses 3 disquettes au prix de 280 F 











[_] sans disquette au prix de 130 F à = || 
[_] les 3 disquettes seules au prix de 150 F = 
e Recueil n° 2 de Pom'’s (n* 5 à 8) - Parution 15 avril 





[_] avec ses 4 disquettes au prix de 320 F 
[_] sans disquette au prix de 130 F 
[_] les 4 disquettes seules au prix de 190 F 











Je désire recevoir : 


e les numéros de la revue Pom’s [ ]4 [17 ![]8 
au prix de 35 F le numéro | 
e les numéros de la revue Pom’s | ]9 []10 [ ]11 ! ]12 


au prix de 40 F le numéro 












e les disquettes d'accompagnement des numéros 


01 [12 O3 O4 O5 O6 07 O8 (19 (10 CO] CJ12 
au prix de 55 F par disquette 














Je désire m’abonner pour 6 numéros à partir du n°... 


[_] sans disquette au prix de 200 F 
[] avec disquettes au prix de 480 F 








TOTAL : 
| Envoyez ce bon de commande et votre règlement à : 


Éditions MEV — 64-70, rue des Chantiers — 78000 Versailles 


Nom 





Adresse 


Ces tarifs comprennent l'envoi postal en France Métropolitaine, CEE et Suisse (voie aérienne exceptée) 
Supplément avion : 10 F par numéro et / ou disquette 
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| Enfin un (club avec des idées 
‘pou comprendre, pour gagner, pour s'évader. 








lub Apple, c'est l'esprit Apple. 
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Cestile fruit della passion: 
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et des services 

























3 le les pasionns de lordinatelr personnel [| |. 
branchés et ceux qui Je sont mains, Apple lancé le Club Apple. Î 


| 4 








PROMO 








Pour en savoir plus sur le Club App e - le fruit de la passion - et connaître tous les avantages que nous réservons aux 
membres du club, découpez dès aujourd'hui le bon et retournez-le à Club Apple, avenue de l'Océanie -ZA de Courtabœuf-BP 131, 
Les Ulis cedex 91944. Vous recevrez sans engagement de votre part toutes les informations pour devenir membre du club. 


Nom 





Prénom 





Adresse 





Code postal 











Vous y trouverez: pm 
l'actualité etles À 

tendances de 

l'informatique individuelle 

e les bancs d'essais 

des principaux matériels 

e des panoramas 

et des tests comparatifs 

e le point des grandes 

manifestations internationales 
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SOUS LE SIGNE DES JEUX 


68 logiciels En sur 10 ordinateurs : 


8 k# 


CC ORDINATEUR Less 
4-1] INDIVIDUEL. 
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QUELS ORDINATEURS DES ? 


Souris, écran tactile, 
crayon lumineux : 

le clavier sur la touche ? ÿ: 
Les écrans à fenêtres 

Les logiciels intégrés 

Les composants du fu 


ESSAIS : BFM 186, 
HP 150, Lisa, 
Aquarius, 


e des articles d'initiation pnoanawbes. MU ( 
STUÉÉS. 


e des synthèses Es 


e des programmes 

e des interviews 
‘exemplaires’ e des conseils 
e des idées 

e des astuces 


22 FF chez votre 
marchand 
de journaux 
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-sur CB 








